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.REM £ 



IDENTIFICATION 



PROOUCT COOE 
PRODUCT NAME 
PROOUCT DATE 



AC-E646F-MC 

CZTUUFO TU58 PERF EXER 
23 JANUARY 1964 



MAINTAINER: TAPE DIAGNOSTIC ENGINEERING 

AUTHOR: R. J. ROSS 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1979.1964 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 

DIGITAL POP UNIBUS MASSBUS 

DEC DECUS DEC TAPE 
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HISTORY 



JUNE 18.1979 
JULY 1.1979 
JUNE 1.1980 
OCTOBER 1.1981 
MARCH 1,1982 
JUNE 1.1983 
JANUARY 23.1984 



INITIAL RELEASE 
SECOND RELEASE 
THIRD RELEASE 
FOURTH RELEASE 
FIFTH RELEASE 
SIXTH RELEASE 
SEVENTH RELEASE 



CZTUUAO 



CZTUUAO 
CZTUU80 
CZTUU81 
CZTUUCO 
CZTUUDO 
CZTUUEO 
CZTUUFO 



INITIAL REALEASE-PERF. EXER. 
UITH ONE OR TWO DRIVES EACH. 



FOR UP TO 8 TU58 CONTROLLERS 



CHANGES TO CZTUUAO 

1. THE PROGRAM WAS MODIFIED TO RUN UNDER THE NEW DIAGNOSTIC 
SUPERVISOR CHSAAO. AS A RESULT OF THIS CONVERSION. THIS 
PROGRAM NOW OPERATES IN OK AND PAPER TAPE DISTRIBUTION 
REQUIRES ONLY ONE PART AK-E6508-MC. 

CHANGES TO CZTUUBO 



"CLR S XHSRCR5)" MAS BEEN CHANGED TO "DEC 8 XHSRCR5)" TO 
ALLEVIATE THE PROBLEM OF DESTROYING ANY PREVIOUSLY SET 
PROGRAMMABLE SPEED IN THE DLV11-E.F. OR DC319 DLART WHEN 
THE TU58 INIT SEQUENCE WAS TERMINATED. 

CHANGES TO CZTUUB1 



1. 



TEST 9 UAS ADOEO TO THE DIAGNOSTICS BECAUSE THE TU58 HAS 
BEEN UPDATED TO USE MOOIFIEO RADIAL SERIAL PROTOCOL. 

CHANGES TO CZTUUCO 



2. 



A TEST WAS ADDED TO VERIFY 128 BYTE/BLOCK MODE. THE TEST 
IS SIMULAR TO TEST 3. IT WRITES. READS. AND VERIFIES SEQU- 
ENTIAL BLOCKS OF TAPE FROM BLOCK 0 THOUGH BLOCK 2047. THIS 
IS DONE FOR EACH SELECTED DRIVE IN EACH SELECTED UNIT. THIS 
WILL BE TEST 4. TEST NUMBERED 4-8 WILL BECOME TEST 5-9. 

IN TEST 9. MRSP' WILL BE TESTED DIFFERENTLY . IN THIS VERSION 
TO TEST THE NEED FOR HANDSHAKING. THE WAIT LOOP IS BEFORE SENDING 
THE 'CONTINUE' INSTEAD OF AFTER. THIS WILL VERIFY THAT THE TU58 
CANNOT SENO DATA WITHOUT A HANDSHAKE. 



Di 
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CHANGES TO CZTUUEO 



I, ADDED SOFTWARE PARAMETER TO ALLOW OPTION OF EXECUTING TEST 3 ON 

ORIVE 0 ONLY. OR ALL DRIVES. IF TEST 3 IS EXECUTED ON DRIVE 0 ONLY, 
EXECUTION TIME IS REDUCED. 



El 
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TABLE OF CONTENTS 



1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

1.2 SYSTEM REQUIREMENTS 

1.3 RELATED DOCUMENTS AND STANDARDS 

1.4 DIAGNOSTIC HIERARCMY PREREQUISITES 

1.5 ASSUMPTIONS 

2.0 OPERATING INSTRUCTIONS 

2.1 HOW TO RUN THIS DIAGNOSTIC 

3.0 ERROR INFORMATION 

4.0 PERFORMANCE AND PROGRESS REPORTS 

5.0 DEVICE INFORMATION TABLES 

6.0 TEST SUMMARIES 

1.0 GENERAL INFORMATION 



THIS DIAGNOSTIC EXERCISES FROM 1 TO 8 TU58 CONTROLLER BOAROS. EACH 
OF WHICH MAY SUPPORT 1 OR 2 DRIVES. THE PROGRAM IMPLEMENTS THE 
"MAINTENANCE MODE" SWITCH WITHIN ALL PACKET COMMANDS. THUS RETRIEVING 
MAXIMUM INFORMATION FROM THE DEVICE UPON CERTAIN DEVICE RECOGNIZED 
ERRORS. 

STATISTICAL SUMMARIES ARE PROVIDED FOR ALL UNITS TESTED. RETRIES 
ARE PERFORMED ON DATA -RELATED ERROR CONDITIONS. 

USE OF LOOP ON ERROR FLAG C:LOE) IS IMPLEMENTED BUT NOT 
RECOMMENDED FOR USE. SINCE THE LOOPS ARE QUITE LENGTHLY DUE 
TO COMMUNICATIONS PROTOCOL OVERHEAD. 

1.1 PROGRAM ABSTRACT 



IN 0RDE9 TO EXERCISE MULTIPLE UNITS IN AN EFFICIENT MANNER. A 
SCHEDUL NG ALGORITHM BUILDS. THEN SENDS THE NEXT COMMUNICATION 
PACKET (COMMAND OR DATA) FORMULATED BY EXECUTING MACRO CODE WITHIN 
THE TEST ALGORITHMS. THE USE OF MACROS TO IMPLEMENT THE COMMUNICATIONS 
PROTOCOL SIMPLIFIES CONTEXT SWITCHING FROM UNIT TO UNIT BY NOT 
REQUIRING 8 SEPARATE DEVICE STACKS IN AOOITION TO THE SYSTEM 
STACK. THE TEST COOE RUNS AS A CO-ROUTINE WITH THE SCHEDULER. SO A 
TEST COOE PROGRAM COUNTER IS MAINTAINED FOR EACH UNIT "TSTPC(R5)'\ 

THE TESTS ARE PERFORMED USING THE SPECIFIED ALGORITHM ON ALL DRIVE OS. 

THEN REPEAT THE TEST AFTER SWITCHING DRIVES. IF ANY DRIVE "I'S" WERE SELECTED. 

FOLLOWING THE TRANSMISSION OF 1 PACKET TO EACH DEVICE (WITH XOFF 
PRECEEDING) THE UNITS ARE POLLED. AND THEIR ENTIRE RESPONSES 
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EVALUATEO ROUND ROBIN. IF ANY ERROR INITIATES A RETRY. THF. SCMEO 
ULING PROCESS IS MODIFIED TO COMMUNICATF UITM ONLY 1 UNIT UNTIL 
COMPLETION OF THE RETRY PROCEDURE. THEN, A RETRY BY ANOTHER UNIT 
MAY PROCEED. OR THE SYSTEM CONTINUES NORMALLY. 

THROUGHOUT THE PROGRAM. R5 POINTS TO ONE OF 8 POSSIBLE DATA 
STRUCTURES CONTAINING STATUS. TEST PARAMETERS. AND STATISTICAL 
INFORMATION FOR THE CURRENT UNIT. CALLED "UNIT'S DATA BLOCK". 
"START" CLEARS STATISTICS. "RESTART" AND "CONTINUE " DO NOT. 

UPON OCCURANCE OF A FATAL ERROR. THAT UNIT IS DESCHEOULED 
(ABORTED) ALLOWING THE REMAINING (IF ANY) TO PROCEED WITH 
TESTING. 

ERROR DESCRIPTIONS: 



AN EXPLANATION OF THE EXTENDED ERROR INFORMATION FOLLOWS. SEE 
ALSO THE SECTION IN THIS LISTING SUBTITLED "ERROR MESSAGE 
DESCRIPTIONS", 

BLOCK ♦: THE RECORD NUMBER (1 PER 512. BYTES) 

IN LAST COMMAND PACK. 

COMMANO: THE MOST RECENT COMMAND PACKET OP C00£. 

EXPCTD: THE DATA PATTERN USED ON WRITE COMMAND 

A NO FOR DATA COMPARE AFTER READ OP. 

SUCCESS: THE SUCCESS C00€ RECEIVEO IN ENO PACKET. 

PAK SENT: TYPE OF PACKET JUST SENT (0 FOR DATA, 

1 FOR COMMAND) 

FLAG RCVD: FLAG BYTE OF PACKET CURRENTLY BEING 

CHECKED . OR 1ST BYTE TF RESPONSE. 

SINCE IN MAINTENANCE MODE TU58 WILL SEND A BAD DATA PACK WITH A 
"DATA CHECK" SUCCESS STATUS IN THE FOLLOWING END PACK. THE HOST 
WILL. UPON CHECKING THOSE DATA PACK(S). DETERMINE "BAO DATA" IN 
PACKET ERROR FIRST, THEN INTERPRET THE SUCCESS CODE TO DIFFERENTIATE 
A COMMUNICATIONS GLITCH (GOOD SUCCESS) VS. TU ' DATA -CHECK' ERROR CODE. 
THIS WOULD SEEM TO RESULT IN TWO "ERROR" MESSAGES FOR ONE ERROR 
CONDITION. BUT ONLY THE SECOND ERROR MESSAGE WILL CONTAIN PERTINENT 
(NOT ZERO) ERROR NUMBER. 

1.2 SYSTEM REQUIREMENTS 



1.2.1 HAROWARE 



POP-ll/LSI-11 CPU WITH AT LEAST 24K WORDS OF MEMORY AND CONSOLE 
DEVICE. 



Gl 
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TU58 CONTROLLER AND ORIVE(S). OL. OLV. OR POT COMPATABLE INTER 
FACE j ANO REVISION "I" TU58 MICROCODE (OR LATER) ASSUMED. 

1.2.2 SOFTWARE 



THE PROGRAM IS REVISION 0 DIAGNOSTIC SUPERVISOR COMPATIBLE. 
CONSULT XXDP* USERS MANUAL FOR OPERATING INSTRUCTIONS. 

1.3 RELATED DOCUMENTS AW STANDARDS 
XXDP* USERS MANUAL CHQUS 

1.4 DIAGNOSTIC HIERARCY PREREQUISITES 



APPROPRIATE INTERFACE DIAGNOSTICS MAY BE RUN TO ISOLATE INTERFACE 
ERRORS. 

1.5 ASSUMPTIONS 

SYSTEM HARDWARE OTHER THAN TU58(S) IS OPERATIONAL. 

2.0 OPERATING INSTRUCTIONS 

2.1 HOW TO RUN THIS DIAGNOSTIC 



THE DIAGNOSTIC MAY BE INVOLKED WITH A 'START' RESPONSE TO THE 
SUPERVISOR PROMPT. 'STA'(CR) IS SUFFICIENT. 

IF THE DEVICE IS NOT AT THE STANDARD ADDRESS AND VECTOR (176500. 
300). THEN ANSWER "CHANGE HW?" WITH 'YES' INITIALLY TO SET UP 
HAROWARE CONFIGURATION TABLES FOR EACH UNIT. THAT INFORMATION 

IS: 

TU58 CSR - ADDRESS OF RCSR OF OLV-li OR OTHER INTERFACE 

BOARD. 

VECTOR ADDR. - ADDRESS OF INTERRUPT VECTOR LOCATION. 

POT INTERFACE - IS THE TU58 IN A PDT 11/130. 

OR SYSTEM WHOSE BUFFERS ARE: 

RCSR 
RCOB (ANO XMOB) 
XMSR 



TEST ORO 



YES OR NO 



HI 
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TEST ORl - YES OR NO 

SUBSEQUENT RESPONSES TO "CHANGE HW?" MAY THEN BE 'NO". 

THE STANDARD ADDRESS AND VECTOR LOCATIONS FOR THE POT 11/130 

ARE 177170 AND 260 RESPECTIVELY. 

THE SOFTWARE QUESTIONS ARE AS FOLLOWS: 



NUMBER OF BLOCKS: TEST 5-8 -- 
ADD DR * TO DATA PATTERN 
STATISTICS PRINTED AT hOP 

COMPARE OATA ON REAO 

PRINT PACKET ON ERROR 
9 ERRORS-DVC FATAL IF ' EVL' 



ONE MAY SELECT A MINIMUM OF 8. TO 
A MAXIMUM OF 512 BLOCKS TO WRITE, 
READ j WRITE VERIFY t AND READ REDUCED. 
AS EXPLAINED IN SECTION 6.0. 

FOR THOSE SAME REAO A NO WRITE TESTS 
5-8. THE DRIVE NUMBER (0 OR 1) MAY 
8E ADDEO TO DATA WRITTEN ON TAPE TO 
INSURE DRIVE SELECT BIT OPERATION. 

SELECTS WHETHER OR NOT TO PRINT 
INFORMATION AT END OF PASS OR *C. 
THESE STATISTICS MAY ALSO BE RE 
TRIEVED WITH THE "PRI" COMMAND. 

SELECTS WHETHER OR NOT TO DO A 
DATA COMPARE ON DATA PACKETS RE 
CEIVEO. 

PRINTS 132. BYTE DATA PACKET ON A COMPARE 
ERROR. IF SELECTED. 



SEQ 0007 



SET IF USER SETS EVL FLAG (EVALUATE) 
MODE). HRD OR SFT ERROR MESSAGES 
BECOME DVC FTL ERRORS AFTER THE 
NUMBER SPECIFIED IS EXCEEDED. 

PRINT UNIT PROTOCOL SUMMARY (TEST 9) -- PRINTS A TABLE INDICATING 

THE PROTOCOL OF EACH UNIT. 



3.0 



ERROR INFORMATION 



ERROR INFORMATION IS PROVIDEO ON OC TURRANCE OF ERRORS AS OUTLINED IN 
SECTION I. I. 



4.0 



PERFORMANCE AND PROGRESS REPORTS 



STATISTICS ARE AVAILABLE PER SECTION 1. I AT END OF PASS. CONTROL C. OR 

UPON ENTERING A "PRI" COMMAND. THEY CONSIST OF » BLOCKS WRITTEN AND READ. 9 OF 

DATA ERRORS. HARD OR SOFT. 



II 
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SEQ 0008 



5.0 



DEVICE INFORMATION TABLES 



CONSULT SECTION SUBTITLED "DATA BLOCK FORMAT " FURTHER ON IN THIS LISTING. 



6.0 



TEST SUMMARIES 



INIT: 



TEST 1: 
TEST 2: 

TEST 3: 
TEST 4: 



OR 



INIT IS SENT TO DEVICE IF: 

1. INIT CODE IN SUPERVISOR IS EXECUTED 

2. INIT IS REQUESTED Br DEVICE AS A RESULT OF 
ERROR. 

INITIATES FIRMWARE DIAGNOSTICS AT DEVICE LEVEL (SEuF TEST) 

SEEK TEST. SEEKS BOT ON BOTH TRACKS. THEN 
VERIFIES 60 IPS OPERATION TO SEEK EOT ON 
ON BOTH TRACKS. ENDING THEN AT BOT. 

PERFORMS WRITE. THEN READ OF AOJACENT BLOCKS AT BOT 
WITH VARYING DATA, THEN SEEKS HALF WAY INTO REMAINING 
TAPE AND REPEATS THE ABOVE UNTIL EOT. THIS TEST IS IN 
512 BYTE/BLOCK MODE. 

PERFORMS WRITE. THEN READ OF AOJACENT BLOCKS AT BOT 
WITH VARYING DATA. THEN SEEKS HALF WAY INTO REMAINING 
TAPE AND REPEATS THE ABOVE UNTIL EOT. THIS TEST IS IN 
128 BYTE/BLOCK MODE. 



TESTS 5-8: REAOS OR WRITES BLOCK « AS DATA INTO SUCCESSIVE BLOCKS 

ON TAPE. THE LENGTH OF WHICH IS DETERMINED BY SOFTWARE 
QUESTION #1: DEFAULT IS SHORT TAPE (8. ). MINIMUM, 
(8.) RESULTS IN TRANSFER OF 8. (OR 4 PER TRACK) 512. BYTE 
BLOCKS OF DATA PER READ (OR WRITE) OPERATION. THE 
ALGORITHM SWITCHES TRACKS REGARDLESS OF THE NUMBER 
BLOCKS SELECTEO. DRIVE NUMBER IS ADDED TO RECORD 
AS DEFAULT, SO FOR TAPE INTERCHANGE 
TESTING, ANSWER (N) TO SOFTWARE (SW) QUESTION 42. 

NOTE: THE AMOUNT OF TIME SPENT IN TESTS 5-8 IS QUITE 
LONG IF THE FULL TAPE (512.) IS SELECTED. 



TEFT 5 

TtCT 6 

TEST 7 

TEST 8 



WRITE TAPE 
READ TAPE 

'WRITE VERIFY' TAPE 

READ NOTIFIED THRESHOLD TAPE 
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TE5T 9: THE FIRST PART Of TEST 9 DETERMINES IF" A UNIT IS 

CAPABLE OF MODIFIED RADIAL SERIAL PROTOCOL. THIS 
PART OF THE TEST IS WRITTEN USING RADIAL SERIAL 
PROTOCOL. AND DETERMINES THE PROTOCOL OF A UNIT BY 
SENDING THE TU58 A GET CHARACTERISTICS COMMAND AND 
MONITORING THE RESPONSE. IF THE TU58 RETURNS AN END 
PACKET IT IS A MODIFIED UNIT. IF THE TU58 RETURNS A 
DATA PACKET IT IS A NON-MODIFIED UNIT. NOTE. THE DATA 
PACKET RETURNED ON A GET CHARACTERISTICS COMMAND IS 
NOT NORMAL. RATHER IT CONSISTS OF A DATA PACKET THAT 
IS 28. BY'ES PLUS AN END PACKET WHICH IS 14. BYTES. 
THE SECOND PART OF TEST 9 TESTS ONLY THOUGHS UNITS 
THAT ARE MODIFIED. THIS IS ACHIEVED BY LETTING NON- 
MODIFIED UNITS JUMP OVER CODE. IT WAS ASSUMED THAT IF 
A UNIT CAN READ. WRITE. ETC. . . WHEN OPERATING IN RSP. 
THEN IT CAN READ. WRITE. ETC. . . WHEN OPERATING IN MRSP. 
THEREFORE ALL THAT HAD TO BE TESTED WAS THE ABILITY OF 
MODIFIED UNIT TO BE ABLE TO SEND ONE BYTE AND WAIT FOR 
A CONTINUE FROM THE HOST BEFORE SENDING THE NEXT BYTE. 
A PROTOCOL SUMMARY OF THE UNITS IS ADVAILABLE BY AN- 
SWERING YES CY) TO SOFTWARE CSW) QUESTION 4 5. 

6 
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3765 
3766 
3792 
3794 

3795 002000 
3797 

3798 002000 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3814 

3815 002000 

(4) 002000 

(4) 002000 103 

(4) 002001 132 

(4) 002002 124 

(4) 002003 125 

(4) 002004 125 
(6) 002005 000 
C6) 002006 000 

(5) 002007 000 
(5) 002010 

(4) 002010 106 

(5) 002011 

(4) 002011 060 

(5) 002012 
C4) 002012 000001 
(5) 002014 

(4) 002014 007020 

(5) 002016 

(4) 002016 041366 

(5) 002020 

(4) 002020 041530 

(5) 002022 

(4) 002022 002176 

(5) 002024 

(4) 002024 002210 

(5) 002026 

(4) 002026 042236 

(5) 002030 

(4) 002030 000000 

(5) 002032 
C4) 002032 000000 
(5) 002034 

(4) 002034 000001 

(5) 002036 
(4) 002036 000000 
C5) 002040 

(4) 002040 002152 

(5) 002042 
(4) 002042 000340 
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.TITLE PROGRAM HEADER AND TABLES 
. SBTTL PROGRAM HEADER 



SEQ 0010 



. ENABL ABS.AMA 



.NLIST 
BGNMOD 



BEX 



2000 



002000 



!*THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
i THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



POINTER BGNRPT . BGNSW . BGNSF T . BGNAU . BGNDU . BGNSE TUP 



HEADER CZTUU.F.0.3600. .1.PR107 



LINAME: 



L*REV: 
L$DEP0 
LtUNIT 
LITIML 
LtHPCP 
L*SPCP 
L*HPTP 
L»SPTP 
L*LADP 
LISTA: 
L»CO:: 
LIDTYP 
LI APT: 
L*DTP: 
LIPRIO 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 

.byte 

.BYTE 
.BYTE 

.ASCII 

.ASCII 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



/C/ 
/Z/ 
/T/ 
/U/ 
/U/ 

0 

0 

0 

/F/ 
/O/ 

T$PTHV 

3600. 

L SHARD 

LISOFT 

L*HW 

L*SW 

L*LAST 

0 

0 

1 

0 

LJDISPAT 
PR 10 7 



LI 
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(5) 


002044 




(4) 


002044 


000000 


(5) 


002046 




(4) 


002046 


000000 


(5) 


002050 




(4) 


002050 


003 


C3) 


002051 


003 


(5) 


002052 




(4) 


002052 


000000 


(5) 


002054 


000000 


(5) 


002056 




(4) 


002056 


000000 


(5) 


002060 




(4) 


002060 


005512 


(5) 


002062 




(4) 


002062 


015170 


(5) 


002064 




(4) 


002064 


000000 


(5) 


002066 




(4) 


002066 


OOCOOO 


(5) 


002070 




(4) 


002070 


017326 


C5) 


002072 




(4) 


002072 


017202 


(5) 


002074 




(4) 


002074 


000000 


C5) 


002076 




(4) 


002076 


002122 


(5) 


002100 




(4) 


002100 


104035 


(5) 


002102 




(4) 


002102 


000000 


(5) 


002104 




(4) 


002104 


016204 


(5) 


002106 




(4) 


002106 


017160 


(5) 


002110 




(4) 


002110 


016776 


C5) 


002112 




(4) 


002112 


002142 


C5) 


002114 




(4) 


002114 


000000 


(5) 


002116 




(4) 


002116 


000000 


(5) 


002120 




(4) 


002120 


000000 


3816 






3817 


002122 




C4) 


002122 




(3) 


002122 


052524 


(3) 


002130 


051105 


(3) 


002136 


051105 


(2) 




002142 
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DESCRIP <TU58 PERF EXER> 



000 



SEQ 0011 



LIENVI: : 







a 

V 


1 iPYPl • • 










A 
V 


1 iMPPu • • 










l> »nt¥ 131 




ft YTP 
• D f l C 


T tPHTT 


i tpr • • 










A 
\J 




unpn 


A 

V 


I i QPP • • 










A 

V/ 


i tnpup- - 

L. »Utfr , . 








UORD 


l invT YP 

la. V W V 1 1 » 


LIREPP • • 








UORD 


L $RPT 


i IFXP4 • - 








uORD 




L»U r\» aaP • a 








UORD 


o 


L 1 AUT • • 








UORD 


L$AU 


i 1DUT • • 








UORD 


L$0U 


I ii UN- • 








UORD 


o 










UORD 












PMT 


ESL0AD 


L iFTP* • 

L#U lr , . 








UORD 


A 


I- ▼ It" a a 








UORO 




i trrp . . 








uoon 

a wunu 


LiCLEAN 


L$ACP: : 








.UORD 


L$AUT0 


LIPRT: : 








.UORD 


L$PR0r 


LITEST: 








' .UORD 


0 


L*0LT: : 








. UORD 


0 


LIHIME: 








\U0RD 


0 



L*0ESC: : 

.ASCIZ /TU58 PE 



.EVEN 



Ml 
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3819 
3820 
3821 
3822 
3823 

3824 002142 
(3) 002142 

3825 002142 000000 

3826 002144 177777 

3827 002146 177777 

3828 002150 
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SEQ 0012 



;THE PROTECT TABLE IS USED BY THE MONITOR TO WARN THE OPERATOR WHEN HE 
I TRIES TO TEST THE LOAj DEVICE. 



BGNPROT 



ENDPROT 



. WORD 0 
.WORD -1 
.WORD -1 



s DEVICE CSR 
t NO MASS BUS 
I NO DRIVE 



LIPROTj 



Nl 
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.09 PROGRAM HEADER SEQ 0013 

. SBTTL DISPATCH TABLE 

\ * THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
I IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 

I -- 

DISPATCH 9 

.WORD 9 
L IDISPATCH:: 

.WORD Tl 
.WORD T2 
.WORD T3 
.WORD T4 
.WORD TS 
.WORD T6 
.WORD T7 
.WORD T8 
.WORD T9 



CZTUUF. 


Pll 25 -JAN-84 


3835 






3836 






3837 






3838 






3839 






3840 






3841 






3842 






3843 


002150 




(4) 


002150 


000011 


(3) 


002152 




(6) 


002152 


017330 


(6) 






(6) 


002156 


020004 


(6) 


002160 


021376 


(6) 


002162 


023002 


(6) 


002164 


023772 


(6) 


002166 


024556 


(6) 


002170 


025546 


(6) 


002172 


026332 


3844 







B2 
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3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 

3860 002174 
(3) 002174 
(3) 002176 
(3) 002176 

3861 

3862 002176 

3863 002200 

3864 002202 

3865 002204 

3872 

38 "l 002206 
C3) 002206 
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PAGE 9-4 



SEO 0014 



. SBTTL DEFAU.T HARDWARE P TABLE 



THE DEFAULT HARDWARE P- TABLE CONTAINS DEFAULT VALUES OF 
THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLfc 
IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P- TABLES. 



000004 



176500 
000300 
000003 
000000 



BGNHW DFPTBL 



.WORD 176500 

.WORD 300 

. WORD 3 

.WORD 0 



LfHW: : 
OFPTBL: 



.WORD LlOOOlL 



tCSR AOORESS 

iVECTOR ADOR. 

I TEST DRIVE ZERO AND ONE 

iNOT POT TYPE INTERFACE 



ENDHW 



L 10001: 
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3875 
5876 
3877 
3878 
3879 
3880 
3881 

3882 002206 
(3) 002206 
(3) 002210 
(3) 002210 

3883 

3884 002210 

3885 002212 

3886 002214 

3887 002216 

3888 002220 

3889 002222 

3890 002224 

3891 002226 
3892 

3899 

3900 002230 
(3) 002230 
3901 

3902 002230 
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SEO 0015 



000010 



000010 
000001 
000001 
000001 
000001 
000001 
000000 
000000 



. SBTTL SOFTWARE P -TA8LE 



i ♦ ♦ 



l THE SOFTWARE P- TABLE CONTAINS THE VALUES OF THE PROGRAM 
I PARAMETERS THAT CAN BE CMANGFD BY THE OPERATOR. 

I - - 



8GNSW SFPTBl 



LENGTH: .WORD 
STAEOP: .WORD 
PRBUF; 



CMPDAT 
DRVCHK 
EVLTHR 
PPS0T9 
D0T3FL 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



ENDSW 
ENOMOO 



8. 

1 

1 

1 

1 

1 

0 

c 



LISW: : 
SFPTBL: 



.WORD L 10002 I 



ERROR 



l TAPE LENGTH 

iPRINT STATISTICS AT EOP 
iPRINT DATA BUF ON COMP. 
I COMPARE DATA 
I ADD OR ♦ TO DATA 
I THRESHOLD FOR EVL TEST 
iPRINT UNIT PROTOCOL SUMMARY (TST9) 
I TEST 3-DRIVE 0 ONLY FLAG 



L 10002: 



DP 
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SOFTWARE P TABLE 



SEQ O01» 



3915 
3916 
3*44 

3954 

3955 002230 

3956 

3957 

3958 

3959 

3960 

3961 

3962 002230 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000040 
000037 
000036 
000035 
000034 



000340 



TITLE GLOBAL AREAS 
. SBTTL GLOBAL EQUATES SECTION 



BGNMOO 

!*THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
I ARE USED IN MORE THAN ONE TEST . 
I - - 



EQUALS 
i BIT DIF INI T IONS 



BIU5-- 100000 
BIT14-- 40000 
BIT13-- 20000 
BIT12-- 10000 
BIT11-- 4000 
BIT10— 2000 
BIT09-- 1000 
BIT08-- 400 
BIT07-- 200 
BIT06-- 100 
BIT05-- 40 
BIT04-- 20 
BIT03-- 10 
BIT02-- 4 
BIT01-- 2 
BITOO-- 1 

BIT9-- BIT09 

BIT8-- BIT08 

BIT7-- BIT07 

BIT6— BIT06 

BIT5" BIT05 

BIT4-- BIT04 

BITS-* BIT03 

BIT2-- BIT02 

BIT1-- BIT01 

BITO-- BITOO 

! EVENT FLAG DEFINITIONS 

I EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



EF. START-- 32. 

EF. RESTART-- 31. 

EF. CONTINUE-- 30. 

EF.NEU-- 29. 

EF.PWR-- 28. 
I 

! PRIORITY LEVEL DEFINITIONS 
PRI07-- 340 



t START COMMAND WAS ISSUED 
I RESTART COMMAND WAS ISSUED 
I CONTINUE COMMAND WAS ISSUED 
i A NEW PASS HAS BEEN STARTED 
, A POWER -FAIL /POWER UP OCCURRED 



E? 
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000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
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GLOBAL EQUATES SECTION 

PRI06-* 300 
PR I05»- 240 
PRI04-- 200 
PRI03-- 140 
PRI02-- 100 
PRI01-- 40 
PRIOO-- 0 

j OPERATOR FLAG BITS 



I 

EVL" 
LOT- 
ADR- 
IOU- 
ISR- 
UAM- 
BOE- 
PNT" 

PRI- 
ME- 

IBE- 
IER- 
LOE- 

hoe- 



4 

10 
20 
40 
100 
200 
400 
1000 
2000 
4000 
10000 
20000 
40000 
100000 



SEO 001^ 



F2 
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SEQ 0018 



3976 




3977 




3978 




3979 




3980 




3981 




3982 


AAAAAA 

000002 


* AA * 

3983 


AAAAAJI 


3984 


AAAAA/ 

OOOOQo 


3985 


AAAA • A 

000010 


3966 


AAAA • A. 

OOOOlc 


3987 


0OOO14 


V AA A 

3988 


AAAA1 4L 


3989 


AAAA OA 


* AAA 

3990 




» AA« 

3991 


AAAAA« 


* AA~k 

3992 


AAAA OH 


V AA* 

3993 


UUUU3V 


3994 




3995 


AAAA T A 


* AA£ 

3996 




* AA "> 

3997 


AAAAa A 


V AAA 

3998 


AAAAA O 


V AAA 

3999 


AAAAA * 


a AAA 

4000 


AAAAA 


4 AA« 

4001 


AAAA C A 

OOOODi/ 


4002 


AAAAC.il 


A AAV 

4003 


AAAACT 


M AAJI 

40O4 




4005 




# 'WO 




4007 




4008 




4009 




4010 




4011 




4012 




4013 




4014 





. SBTTL ERROR CODE EQUATES 

i THE ERROR CODE OFFSET VALUES : 

jUSEO BY ROUTINE LOG' TO INDEX (BY R5) INTO DEVICE'S DATA BLOCK AND 
I INCREMENT STATISTICS. 



SFTRD 

SFTWR 

RCINIT 

OTL 

0VRN 

BOCON 

HRDRD 

HRDUR 

BDCHK 

SKERR 

URL0CK 

NOHOT 

CNINI1 

PARTL 

NOUN IT 

CHNDER 

RECERR 

SLFER 

SUCOTL 

T0RCVB 

NCART 

T0SN0B 

i 

; 

: 



■ ■ 



100. 
101. 
102. 



2 

4 

6 

8. 

10. 

12. 

14. 

16. 

18. 

20. 

22. 

24. 

26. 

28. 

30. 

32. 

34. 

36. 

36. 

40. 

44. 

46. 

IN A00ITI0N. SYSTEM SETUP OR RUNTIME ERRORS ARE: 
ALL UNITS ABORTED 

MORE THAN 8. UNITS (16 DRIVES) REQUESTED 
NEITHER DRIVE SELECTED FOR THIS CONTROLLER 
ALL THE ABOVE ARE CLASSIFIED AS SYSTEM FATAL 



G2 
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4016 . SBTTL GENERAL EQUATES 

4017 jRAOIAL SERIAL COOES t 

4018 i - - - 

4019 i THE FLAG BYTE COOES ARE: 

4020 000002 RSCMND 2 ("COMMAND" PACKET 

4021 000020 RSCONT 20 i "CONTINUE " SINGLE BYTE 

4022 000020 RSXON -- 20 i "XON" SINGLE BYTE 

4023 000023 RSXOFF -• 23 ("XOFF" SINGLE BYTE 

4024 000004 RSINIT •• 4 t"INIT" SINGLE BYTE 

4025 000001 RSOATA ■- 1 ("DATA" PACKET 

4026 000002 RSENO RSCMND i "END" PACKET FLAG IS "COMMAND" 

4027 ; 

4028 j END PACK SIZE: 

4029 000016 RSNDS2 14. i TOTAL BYTES IN COMMAND PACKET 

4030 (MESSAGE PACK SIZE: 

4031 000012 RSMSIZ 12 (10. BYTES FOR BYTE COUNT INSIDE CMND PACK 

4032 j DATA PACK SIZE: 

4033 000204 RSOASZ •■ 132. i TOTAL BYTES IN OATA PACKET 

4034 i OATA ♦ END PACK SIZE: 

4035 000222 RSDNSZ RSDASZ »RSNDSZ 

4036 i GET CHARACTERISTICS DATA PACKET SIZE 

4037 000034 RSGCDP 28. i TOTAL BYTES FOR GET CHAR DATA PACKET 

4038 (MINUS THE END PACKET 

4039 000016 RSSNSZ RSMSIZ ♦ 4 (SIZE FOR SENDING COMMAND PACK 

4040 001036 RCBFSZ-- 4*RSDASZ»RSN0SZ ;4 OATA PAKS AND END PACK 

4041 (IS SIZE OF RCV BUFFERS 

4042 ( 

4043 ( THE OP CODES ARE: 

4044 000100 RSSENO — 100 (END PACK DESCRIPTOR 

4045 000003 RSSUR — 3 (WRITE 

4046 000002 RSSRD •« 2 (READ 

4047 000005 RSSSEK --5 (SEEK 

4048 000012 RSSGET 12 (GET CHARACTERISTICS 

4049 000000 RSSNOP 0 : NO -OPERATION 

4050 000001 RSSNIT 1 (INITIALIZE 

4051 000007 RSSSLF 7 (SELF TEST 

4052 ( 

4053 i THE SUCCESS COOES ARE: 

4054 177720 ESA80 ••-48. iBAO COMMAND FROM HOST 

4055 177767 ESNCRT ••-9. (NO CARTRIDGE 

4056 177770 ESNONX ■••8. (NO DRIVE 

4057 000000 ESOK -«0 (OP COMPLETE SUCCESS 

4058 177776 ESP ART .--2 (PARTIAL OP 

4059 177740 ESSK ••-32. (SEEK ERROR 

4060 000001 ESTRY -*1 (RETRYS OCCURRED 

4061 177765 ESULOC ■•-11. (WRITE PROTECTEO 

4062 177737 ESNOMO ---33. (MOTOR STOPPED 

4063 177720 ESCMD ---48. (COMMAND ERROR 

4064 177711 ESREC ---SS. (BAD RECORD NUMBER. 

4065 177757 ESCKS ••-17. (TU CHKSUM ERROR 

4066 177777 ESSLF — 1. (SELF TEST ERROR 

4067 177757 ESCKSM-ESCKS 

4068 177757 ESWR-ESCKS 

4069 177757 ESRO-ESCKS 

4070 ( 



ri? 
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4072 . SBTTL ERROR MESSAGE DESCRIPTIONS 

Jo 74 i THE TABLE OF ERROR MESSAGES (ADDRESSES). ABNDXCR5) CONTAINS THE OFFSET 

4075 |0F THE REASON. IT'S ABSOLUTE ADDRESS IS RSNTAB ♦ ABNDXCR5). 



4076 



4077 




002324 


RSNTAB: MSNLOG 


4078 




003056 


MSSFRD 


4079 


002234 


003116 


MSbFWR 


4080 


002236 


002540 


MSRNIT 


4081 


002240 


003002 


MSQRSP 


4082 




003262 


MSOVRN 


4083 


002244 


002406 


MSCOM 


4084 


002246 


003156 


MSHDRD 


4085 


002250 


003220 


MSHDWR 


4086 


002252 


002560 


MSHCHK 


4087 


002254 


002310 


MSSKER 


4088 


002256 


002516 


MSWPRO 


4089 


002260 


002450 


MSNOMO 


4090 


002262 


002622 


MSNIT 


4091 


002264 


002636 


MSP ART 


4092 


002266 


002660 


MSUNIT 


4093 


002270 


002706 


MSCMD 


4094 


002272 


002722 


MSREC 


4095 


002274 


002366 


MSSELF 


4096 


002276 


002742 


MSWRSP 


4097 


002300 


002766 


MSNRSP 


4098 


002302 


002324 


MSNLOG 


4099 


002304 


002466 


MSNOTP 


4100 


002306 


003034 


MSTOSN 



12 
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ERROR MESSAGE DESCRIPTIONS 



SEQ 0021 



A 1 AD 
* lVJc 




















A 1 A4 




A42COT 


AACCAC 


A4244A 


A 1 AC 




AAUDA 

Wcoc* 






«• 1UO 


AAPXP4 


ACJC^l 

Uj^jcO 


ACPI P3 


A4iLCAC 
VtOJwj 


A 1 A 7 










41 AA 


AAP34P 


A4ACAD 


APA1 A4 


A4AS04 


a i no 




AAOtiLC 
vvcjOv 






41 1 A 
HI IV 


OOP 


A4PCPX 


A4 X 1 1 4 


ACPA4A 


A 1 1 1 
Hill 










4 1 1 p 


no 04 ac 


A4ACAP 


APOI A4 


A4ASA4 


A 1 1 X 










A 1 Id 


OAP4CA 


A47C1C 


A4 7CP4 


OPOIPP 

vCvlCC 












41 lit 
1 IO 


AAO4CC 


A4ACA1 


A5P1PP 


044SPP 


4117 
Hli f 




AAPC 1 C 






h 1 10 


AAOC1 C 


OS1 1 P7 


ACpUl 
wJClii 


A OA 1 AC 

VCvlVJ 


A 1 1 Q 

H 1 l^f 




AAOC4A 






41 PA 
H lev 


AAPS4A 


A4PCpp 

v*tCXC 


044S03 


ACT 1 AC 


4 1 PI 

It 1 




AAOCCA 
wcJw 






4 1 PP 


AAPCCA 


A47C1 A 


A«kPlP3 


A4XA4A 


41 P3 




OApCpp 






41 P4 


AAPAPP 


AJACAl 


AP3C1C 


APA1 P4 


4 IPC 




AADCTC 






4 1P& 


AAOCXC 


A4ACOA 


VJCICC 


040S1 1 


41P7 










41 PA 

ICO 


AAPCCA 


A47A4D 
V/H fWc 


A471 1 7 
UH r 11 r 


A4P4CC 


41 PQ 

H iC7 




OA P 7 AC 








OAP7AC 
WC rVD 


A4ACAP 


APA1 A4 
VcvlvH 


A47CA3 


4131 










413P 


WC r cc 


A4ACAP 


APA1 A4 


A4PCPP 
V^CjCC 


41 33 

^ 1 0 j 




AAP74D 
WC f^c 






41 34 


AAP74P 
WC f*c, 


AC1 1 P7 


A471 1 7 
V/H f 11 f 


APA1 A 7 


4135 




AAP7CC 
WC f 00 








AAP7CC 
WC » w 


A4 7C1C 


AC1 A4A 


AC 1 C AC 


4137 










4138 


AAXAAp 


A471 1 1 
V/H r 111 


A4PCA4 


A44CAT 


41 3Q 




AA3A34 






4140 


OO 30 34 


A44CP4 


A4PC1 C 


A4744A 
wH « H*^V 


4141 




OATACC 






4142 




A4pcpp 


A47CAT 


OP71 PA 
wc f ICO 


4143 




003116 






4144 


003116 


042522 


047503 


027126 


4145 




003156 






4146 


003156 


047125 


042522 


047503 


4147 




003220 






4148 


003220 


047125 


042522 


047503 


4149 




003262 






4150 


003262 


046104 


020126 


051105 


4151 




003310 







{HERE ARE THE MESSAGES PROPER 
MSSKER: 



MSNLOG: 
MSBDA: : 
MSSELF : 
MSCOM: : 
MSN0M0: 



.ASCIZ /SEEK ERROR/ 
.EVEN 

.ASCIZ /SYSTEM ERROR/ 
.EVEN 

.ASCIZ /BAD 0ATA IN PACKET/ 
.EVEN 

.ASCIZ /SELF TEST ERROR/ 
.EVEN 
.ASCIZ 
.EVEN 



l DEVICE COULD NOi READ HEADER 
(DIAGNOSTIC HUNG. BETTER RE -BOOT 



(HOST DATA CHECK FOUND ERROR. DEVICE MAT 
j HAVE READ CORRECTLY. 

j MICRO DIAGNOSTIC FAILED. BUT DEVICE COU 
iSENO AN END PACKET. 
/BAD DATA W-0 DATA CHECK ERR AT TU/ jPREVlOUS DATA CHECK 

tERROR NOT DUE TO DEVICE READ OPERATION 



ASCIZ /MOTOR STOPPED/ i DEVICE COULD NOT GET ANY MEANINGFUL STG 

.EVEN .FROM TAPE. 
MSN0TP:: .ASCIZ /CARTRIDGE NOT IN PLACE/ (NO MEDIA OR BAD SWITCH 
.EVEN 

MSUPRO:: .ASCIZ /WRITE PROTECTION/ (CARTRIDGE WRITE PROTECT TAB MISSING OR 

.EVEN {SWITCH BAD 

MSRNIT:: .ASCIZ /RECIEVING INIT/ jDEVICE SENT INIT REQUEST 

.EVEN 

.ASCIZ /HOST F0UN0 PACKET CHECKSUM ERROR/ j DEVICE SENT PACK WITH 

.EVEN 1 BAD CHECKSUM 

.ASCIZ /CAN'T INIT/ (DEVICE SENT BYTE OTHER THAN "CONTINUE" 

.EVEN (DURING INITIALIZATION 

.ASCIZ /PARTIAL OPERATION/ (END OF MEDIUM ENCOUNTERED 
.EVEN 

ASCIZ /"NON-EXISTENT" DRIVE/ 



MSHCHK:: 
MSNIT ; : 
MSPART : : 
MSUNIT:: 
MSCMD:: 



.EVEN 
.ASCIZ 
.EVEN 
MSREC : : .ASCIZ 



/BAD COMMAND/ 
/BAD RECORD NO./ 



(DEVICE RECV'D TOO LARGE DRIVE NUMBER 
(DEVICE COULD NOT UNDERSTAND HOST 
(DEVICE RECV'D TOO LARGE A RECORD NUMBER 
(HOST COULD NOT DECIPHER COOE IN END PAC 
(TIME OUT WAITING FOR BYTE IN RCV BUF ON 



.EVEN 

MSWRSP : : .ASCIZ /WRONG SUCCESS CODE/ 
.EVEN 

MSNRSP:: .ASCIZ /NO RESPONSE/ 
.EVEN 

MSQRSP:: .ASCIZ UNDECIPHERABLE FLAG BYTt\ (HOST COULD NOT UNDERSTAND 1ST BYTE 
.EVEN (RESPONSE FROM TU AS PROPER PROTOCOL 

MSTOSN:: .ASCIZ /TIME OUT ON SEND/ (DLV 'READY' NEVER WENT HIGH 

.EVEN 

MSSFRO:: .ASCIZ /RECOV. DATA CHECK ERR ON RD OP/ (TU58 RESPONDED WITH "DATA -CHE 
.EVEN (ERROR ON READ OP. (HOST RETRY(S) SUCCES 

MSSFWR:: .ASCIZ /RECOV. DATA CHECK ERR ON WR OP/ (SAME BUT WR OR WR VERIFY OPER 
.EVEN 

MSHDRO: : .ASCIZ /UNRECOV. DATA CHECK ERR ON RD OP/ (TU58 RESPONDED WITH "DATA C 
.EVEN (ERROR ON READ OP. (RETRIES UNSUCCESSFU 

MSHOWR:: .ASCIZ /UNRECOV. DATA CHECK ERR ON WR OP/ (SAME BUT WR OPERATION 
.EVEN 

MSOVRN:: .ASCIZ /DLV ERROR IN RECEIVE/ (DLV ERROR (THE CONTENTS PRINTED OcT") 
.EVEN 



J2 
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MISC STORAGE AND EQUATES 



SEO 0022 



4153 
4134 
4155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 



003310 000000 



003312 
003314 
003316 
003320 
003322 
003324 
005326 
003330 
003332 
003334 
003336 
003340 
003342 
003344 



000000 
000000 
000000 
000000 
000004 
000000 
000000 
000000 
000010 
000000 

oooooo 

000000 

oooooo 
oooooo 



003346 177777 
003350 000226 



. SBTTL MISC STORAGE AND EQUATES 



STSTAT:: .WORD 



SYSTEM STATUS WORD 

BIT7-BIT15 - 1ST BYTE Of PACK RCVD 

BIT05 • NOT USED 

BIT04 • NOT USED 

BIT03 - NOT USED 

BIT02 -RETRY BAD FLAG BYTE 

BIT01 - RETRY OCCURRING 

BITOO • CHKSUM IS ODD (TEMP STORAGE) 



TAPLEN 


. WORD 


s* RECORDS 


DEVPTR 


: .WORD 


j->NeXT UNIT ADDRESS 


RCFLG: 


.WORD 


i TEMP STORE FOR GTBYTE 


RCBCNT j 


.WORD 


$ TEMP STORAGE FOR GTBYTE 


FTLNM: 


.WORD 4 


{NUMBER OF TRIES BEFORE ABORT 


DONE: : 


.WORD 


ll IF TEST ALGORITHM COMPLETE 


IDPTR: 


.WORD 


jPTR IN TESTID MACRO 


TSTTOP 


.WORD 


; POINTER TO CURRENT TEST 


MXRTRY 


. WORD 8 . 


j NUMBER OF RETRIES, BEFORE "HARD " ERROR 


BLKER: 


. WORD 


i RECORD * FOR ERROR REPORT 


SECREC 


.WORD 


{RECORD * TO START AFTER SWITCHING TRACKS 


PRNSIZ 


;: .WORD 


I SIZE OF PACK FOR "PRNPAK" 


ALLGON 


:: .WORD 


i SECONDARY DON'T PRINT STATISTICS FLAG. 


TEST9: 


.WORD 


FLAG THAT INDICATES IF IN TST 9 




TIME OUT 


CONSTANTS: 



CSNRDY : t -I 
CSRCVB:: 150. 



I TIME OUT ON SEND DELAY (DLV NOT rtEAOY ) 
;45 SEC. MULTIPLIER REWIND TIME 
sCAN 8E OPTIMISEO PER CPU 



I<2 
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SRTTL 

. JO 1 1 l» 


DATA 


BLOCK FORMAT 






























A 1 OA 
*• 1 ^FV 




iRS > 
i nw ' 


TOP 


ur i ur i nc 


8 


0ATA BLOCKS (1 PER UNIT) DURING EXECUTION 


A 1 Q1 




• TS 


THF 

1 nt 


ctatiic unon 


CONTAINING: 














tBTTI^ • AH HQ TP H 


419^ 












tRTTIA ■ QPNTl "RRPAK" 


A 1 Q4 












iRTTIS • RPTRY PI AH BY TP PRRHQ rrtATA DAPK^t 


41QS 

■f 17J 












• RTT1? ■ TPMP QTITO URTTF MAPRD 


4 1 Of, 












iRTTll ■ UNIT NOT BP TNT. TF^TFD 


41Q7 












iRTTIO ■ RFTRYTNT. DATA PRO DO 


419A 

~ X vw 












iRTTR ■ TU5fl ERROR 


4199 












iBITfi • RD/UR OPERATION 

f w A i v w ' wn w» wno i a w'l 


4 POO 












iBIT7 » NORMAL /REDUCED THRESHOLD (MACROS 


4P01 












1BIT6 - HOST DATA COMPARE ERROR 


4 POP 

~wVw 












tBITS » MR VERIFY OPERATION 


4203 












iBIT4 ■ TYPE 0T PAR SENT 00ATA 1CMD 


4204 












iBIT3 ■ RETRY FLAG BYTE ERR C SEND COMMAND PACK } 


4205 












iBITO. 1.2-UNIT NO 


4206 


oooooo 

www 


STATUS 


■ ■ 


o 

v • 




i DEVICE STATE 


4207 


000002 

WWWfc 


RETRY 


■ m 


o 
c • 




t# OF RETRIES 


4208 


000004 


ABNDX 

nw'^»** 


m m 


4 




x ERROR NUMBER FOR LOG 


4209 




|R0 








1 STORAGE FOR REGISTERS USE0 IN TEST B00Y 


4210 

CAW 




iRI 








1 STORED WITH SUAP0U 


4211 




iR2 
• nw 








tRETRIEVED UITM SUAPIN 


4212 




iR3 

• n w 










4213 




zR4 










4214 

~ & a^ 


000020 


TSTPC 




16. 




t POINTER TO NEXT EXECUTABLE TEST INST 


4215 


OOOOPP 


RCSR 




16. 




iDLV RCV STATUS ADDRESS 


4216 

~CAW 


www~ 


rcdb 




20. 




iDLV RCV DATA ADDRESS 


4217 


OOOOP6 


XMSR 




22. 




iDLV SND STATUS ADDRESS 


4216 


vwvVJV 


XMDB 




24. 




tDLV SND DATA ADDRESS 


4219 


OAOO^P 

WVWwC 


XSPKNM 




26. 




. THE NUMBER OF PACKETS TO RECEIVE 


4220 


000034 


XSFLG 

^W» wu 




28. 




. THE EXPECTED FLAG OF 1ST PACKET 


4221 


000036 
wwvvwv 


XSCNT 




SO. 




. THE EXPECTED COUNT OF 1ST PACKET 


4222 












iFOR MULTIPLE PACKET RECIEVES fMAX 4) 


4223 




i 


BLKW 8* 




i CONSECUTIVE XSFLGS AND XSCNTS 


4224 


000060 

WWww 


rvp 

wn 




46. 




•DR««0 OR 1- BITA 9 DRIVE SELECTED BY OPERATOR 

t yn w wn A* w A I w» 7 wn a W w JLLLb i i— w w ' W» wnr^ i wr» 


4225 


00006P 

WVWww 


TRK 




50. 




i COUNTER FOR TRACK NUffiER 


4226 


000064 


per 

nw\» 




52. 




t RECORD ( BLOCK 

§nwwwnw v DLWwn wy 


4227 














4226 


0O0066 

www 


TMP 




54. 




iTEST MACRO REGISTER 

1 i ww ■ • in^nw nwWA w ' wn 


4229 


000070 

WW 1 v 


cndcnt 




56. 




iTHE • OF BYTES FOR SENDING PACKET 


4230 


0O007P 

WWw « w 


PATTEN 




58. 




I DATA PATTERN-LOWER BYTE USE0 


4231 


000074 

WW ■ ^» 


DLV 

Wl— W 




60. 




{CONTENTS OF RCD6 ON DLV ERROR 


4232 


000076 

WW f V 


succs 




62. 




s SUCCESS CODE OF LAST END PACKET 


4233 


000100 


CMDSNT 




64. 




I TYPE OF COMMAND CURRENT IN EVEN BYTE; BIT15«*VE 


4234 












4235 


000102 


RCVBUF 




66. 




I POINTER TO 542, BYTE BUFFER (4 DATA PAKS ♦ END 


4236 


000104 


PKPTR 




66. 




I POINTER TO TOP OF PACKET 


4237 


000106 


XSPTR 




70. 




j POINTER TO CURRENTLY USED XSFLG OR XSCNT 


4238 


000110 


URTN0 




72. 




l THE ♦OF 512. BYTE BLOCKS WRITTEN DR0 


4239 


000112 


MRTN1 




74. 




i THE d OF 512, BYTE BLOCKS WRITTEN DRl 
i THE * OF 512. BYTE BLOCKS READ 0R0 


4240 


000114 


R0N0 




76. 




4241 


000116 


R0N1 




78. 




i THE 0 OF 512. BYTE BLOCKS PEAO DRl 



L2 
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4243 




;ANO THE ERROR LCG. . . 








4244 




iSPLIT 


INTO A BYTE PER ORIVE: 


! 0R1 ! DRO ! 






4245 




I 










4246 














4247 
















i OFF SET 










4248 




IN DATA BLOCK 


I ERROR TYPE iERRCOOE:MSG CODEiSUC. COOE 


4249 


























4250 














4251 


000120 


LGOFST 


80. 


i **RESERVED** 






4252 


000122 


SOFTR 


82, 


{SOFT READ sSFTRD 


{MSSFRD 


{ESCKSM 


4253 


000124 


SOFTW 


84. 


iSOFT WRITE iSFTWR 


;MSSFWR 


jESSKSM 


4254 




s 


WORD 


iRECIEVED INIT jRCINIT 


jMSRNIT 


{ ****** 


4255 




; 


WORD 


j BAD FLAG BYTE |0TL 


{MSQRSP 




4256 












4257 




;TMEN THOSE COOES WHICH HAVE N 


TRIES BEFORE ABORT 






4258 














4259 


000132 


T4TRY 


90. 


»DLV ERROR jOVRN 


;MSOVRN 




4260 


000134 


BOATA 


■■ 92. 


j BAD DATA ;BDCOM 


{MSOATA 


2 ****** 

{ESCKSM 


4261 


000136 


HAROR 


94. 


{HARD READ {HRDRD 


{MSHORD 


4262 


000140 


HARDW 


■■ 96. 


{HARD WRITE jHRDWR 


{MSHDWR 


{ESCKSM 


4263 






WORD 


; CHKSM AT HOST ;BDCHK 
; SEEK ERROR TOTAL iSKERR 


{MSHCHK 


{ ****** 


4264 






WORD 


{MSSKER 


******* 

{ESWLOC 


4265 


000146 


T1TRY 


102. 


i WRITE PROTECT {WRLOCK 


{MSWPRO 


4266 






WORD 


;N0 MOTOR jNOMOT 


{MSNOMO 


{ESNOMO 


4267 






WORD 


{CANT INIT :CNINIT 


{MSNIT 


• ****** 

; ESP ART 


4268 






WORD 


1 PARTIAL OP ;PARTL 


;MSP ART 


4269 






WORD 


(NO UNIT j NOUN IT 


{MSUNIT 


sESNONX 


4270 






WORD 


i COMMAND ERROR ;CMNDER 


;MSCMD 


;ESCMD 


4271 






WORD 


{BAD RECORD NO iRECERR 


(MSREC 


{ESREC 


4272 






WORD 


iSELF TEST ERROR jSLFER 


{ MSSELF 


- ****** 


4273 






WORD 


i WRONG SUC. CODE jSUCOTL 


{MSWRSP 


******* 


4274 






WORD 


iNO RESPONSE ; TORCVB 


sMSNRSP 


; ****** 


4275 






WORD 


♦♦♦RESERVED** 






4276 






WORD 


;N0 CARTRIDGE ;NOCART 


{MSNOTP 


{ESNCRT 


4277 






WORD 


; TIME OUT SENO:TOSNOB 


{MSTOSN 


s ****** 


4278 










4279 














4280 


000202 


BLKENO 


130. 


{OFFSET OF END OF STATISTICS (RESERVED) 


4281 


000204 


TUVECT 


132. 


{VECTOR ADORESS 






4282 


000206 


SAVCNT 


134. 


{BYTE COUNT SAVED DURING RETRY ON WRITE OPERATIO 


4283 


000210 


MRSP 


136. 


2***** FLAG INDICATING MRSP 




4284 


000212 


BLKSIZ 


138. 


;♦* RESERVED ** 






4285 















M2 
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4268 






.SBTTL 


DEVICE DATA BLOCK ALLOCATION 


4289 














429C 














4291 






; TABLE 


OF DEVICE DATA 


BLOCK ADDRESSES 


4292 














4293 














4294 


003352 


003372 


BLKTBL : 


.WORD 


DEVO 


4295 


003354 


003604 






.WORD 


DEVI 


4296 


003356 


004016 






.WORD 


0EV2 


4297 


003360 


004230 






.WORD 


DEV3 


4298 


00 3362 


004442 






.WORD 


DEV4 


4299 


003364 


004654 






.WORD 


DEV5 


4300 


003366 


005066 






.WORD 


0EV6 


4301 


003370 


005300 


LSTOEV: 


.WORD 


DEV7 


4302 














4303 














4304 






8 AND 


STORAGE FOR EACH: 




4^05 














430* 


003372 


000212 


OEVO: 




.BLKB 


BLKSIZ 


<307 


003604 


000212 


DEVI: 




.BLKB 


BLKSIZ 


4306 


004016 


000212 


DEV2; 




.BLKB 


BLKSIZ 


4309 


004230 


000212 


DEV3: 




.BLKB 


BLKSIZ 


4310 


004442 


000212 


DEV4 




• BLKB 


BLKSIZ 


4311 


004654 


000212 


DEV5 




.BLKB 


BLKSIZ 


4312 


005066 


000212 


0EV6 




.BLKB 


BLKSIZ 


4313 


005300 


000212 


0EV7 




.BLKB 


BLKSIZ 



N2 
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SEQ 0026 



4329 
4330 
4331 
4332 
4333 
4334 
(4) 
(3) 
(3) 
(3) 
(2) 
4335 
4347 
4348 
4366 



005512 
005512 

005512 052524 034065 041440 
005520 047117 051124 046117 
005526 042514 000122 



, SBTTL GLOBAL TEXT SECTION 

\ NAMES OF DEVICES SUPPORTED BY PROGRAM 
DEVTYP <TU58 CONTROLLER > 



LIDVTYP: : 



.ASCIZ /TU58 CO 



.EVEN 



B3 



GLOBAL AREAS 
CZTUUF .Pll 

4575 
4376 
4377 
4378 
4379 
4300 
4381 
4383 
4383 
4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 



HACtll 30(1046) 
25-JAN-84 08:09 



25-JAN-84 08:33 PACE 12 

SYSTEM MACRO DEFINITIONS 



SEO 0027 



. SBTTL SYSTEM MACRO DEFINITIONS 

.MACRO PUSH .REG 

. NLIST 
.LIST ME 
.LIST 



MOV 



REG. (SP) 



NLIST 
.NLIST ME 
.LIST 
.ENDM 

. MACRO POP. REG 

.NLIST 
•LIST ME 
.LIST 



MOV 



(SP)..REG 



.NLIST 
.NLIST ME 
.LIST 
.ENDM 

!thE MACRO SWAPIN' RETRIEVES THE TEST REGISTERS WHICH WERE SAVED 
i IN THE DEVICE DATA BLOCK. 

t - - 

.MACRO SUAPIN 

.NLIST 
.LIST ME 
.LIST 



MOV 
MOV 
MOV 
MOV 
MOV 



6.(R5).R0 

8.CR5).R1 

10.(R5).R2 

12.(R5).R3 

14.(R5).R4 



•NLIST 
.NLIST ME 
.LIST 
.ENDM 

IthE MACRO 'SWAPOW' SAVES THE CURRENT STATE OF THE UNIT IN T*« DRIVE 
iDATA BLOCK IN SO THAT THE SCHEDULER MAY 'SWAPIN' ANOT*€R UNIT. 

» - 

.MACRO SWAPOW 
•NLIST 



C3 
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4431 -LIST ME 

4432 -LIST 
4433 

4434 
4435 
4436 
4437 
4438 

4439 .NLIST 

4440 .NLIST ME 

4441 .LIST 

4442 .ENOM 



SEO 0028 



MOV R0.6.(R5) 

MOV R1.8.CR5) 

MOV R2.10.(R5) 

MOV R3.12.(R5) 

MOV R4.14.(R5) 



D3 



GLOBAL AREAS 
CZTW* .Pll 



MACU1 30(1046) 
25 JAN 04 08:09 



25 JAN -04 06: SS PACE IS 

SYSTEM MACRO DEFINITIONS 



SCO 002^ 



4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
446S 
4464 
4465 
4466 
4467 



4469 
4470 
4471 
4472 
4473 



THE WRITE MACRO IMPLEMENTS THE COMPLETE PROTOCOL NECESSART TO BUILD 
A COMMAND PACKET AND SUBSEQUENT DATA PACKETS (UNTIL THE BYTE COUNT 
(BCNT) IS SATISFIED). 

SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
(XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG. XSCNT). CALLS 
•RSVP' TO SEND EACH PACKET, AND • CHKSUM' TO CALC. THE PACKET 
CHECKSUM. 



INPUTS 



OUTPUTS 



DEVICE BLOCK 8R5 
TRBUF - BUFFER ADDRESS 
UNIT'S TEST REGISTERS FROM 'SWAPIN' 
SNDCNTCR5) - ♦ OT BYTES TO SEND 
XSPKNM - # OF PACKETS EXPECTED 
XSFLG • FLAG BYTE OF 1ST PACKET 
XSCNT - BYTE COUNT OF 1ST PACKET 
*** 

* SUBSEQUENT XSFLGS 

* AND XSCNTS 
*** 



.MACRO TUWRIT PTRN.REC.BCNT.DR.VER.?A.?B.?C.?D.?E.?F.?0.?H,?T 

.NLIST 
.LIST ME 
• LIST 



4474 


T: 


MOV 


•TRBUF. RO 


j MAKE COMMAND PACKET: 


4475 




MOVB 


•RSCMND.8R0 


1 COMMAND FLAG 


4476 




MOVB 


•RSMSIZ.l(RO) 


iTHIS SIZE 


4477 




MOVB 


#RSSUR.2(R0) 


t INSERT OP COOE -WRITE 


4478 




MOVB 


VER.S.(RO) 


l VERIFY (1 OR 0) 


4479 




MOVB 


DR.4.(R0) 


1 DRIVE ♦ 


4480 




MOVB 


•020.5. (RO) 


1 MAINTENANCE MODE SWITCH 


4481 




CLR 


6.CR0) 


iNO SEQUENCE ♦ 


4482 




MOV 


BCNT.8.CR0) 


l TOTAL COUNT TO WRITE 


4483 




MOV 


REC.IO.(RO) 


j AT RECORO N 


4484 




MOV 


•RSMSIZ.R1 


1 THE PACKET SIZE PL US* 2 


4485 




TST 


(Rl)» 


iCFLAG AND COUNT) INTO R 


4486 




MOV 


«RSSNSZ.SN0CNT(R5) jLOAD THE SIZE TO S 


4487 




CALL 


CHKSUM 


|R0 ••> Rl-COUNT 


4488 




MOV 


Ri.(RO) 


iPUT CHKSUM IN PACKET 


4489 






iSET UP EXPECTATIONS: 


4490 




MOV 


•RSC0NT.XSFL6CR5) »THE FLAG 


4491 




MOV 


♦1.XSCNTCR5) 


1 THE COUNT 


4492 




MOV 


•1 , XSPKNMC R5 ) 


iTHE • PACKETS EXPECTEO 


4493 




MOV 


BCNT.R2 


iGET ♦ OF DATA BYTES 


4494 




CALL 


RSVP 


iSEND (AND RETURN TO SCH 


4495 




BIT 


•BIT3.BR5 


iFLAG BYTE ERROR? 


4496 




BNE 


T 


• YES 


4«Q7 




BIC 


•6IT12.8R5 


jFLAG FOR LAST PACKET 


4498 


A: 


MOV 


• TRBUF, RO 


l POINT TO TOP OF BUFFER 


44<»9 


CMP 


R2.4128. 


I START DATA PACKET(S) 


4500 




BHI 


B 


iBCNT > 128.! 
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4501 
4502 
4503 
4504 
4505 
4506 
45C7 
4506 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4516 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4533 
4534 
4535 
4536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 

4545 .NLIST 

4546 .NLIST ME 

4547 .LIST 

4548 .ENOM 
4549 



SEQ 0050 



MOV 

BIS 

BR 

MOV 

MOVB 

MOV 

MOVB 

TST 

MOVB 

DEC 

BMI 

MOV 

MOVB 

B1C 

MOV 

ADO 

ADO 

CALL 

MOVB 

SWAB 

MOVB 

BIT 

8EQ 

MOV 

MOV 

MOV 

BR 

MOV 

MOV 

MOV 

CALL 

BIT 
BNE 
BIT 
BNE 
SUB 
BHI 
BR 

TURTRY 
BIT 
BNE 
NOP 



R2.R1 

•6IT12.8R5 

C 

•128. ,R1 
Rl.l(RO) 
R1.R3 

•RSDATA.QRO 

(R0)» 

PTRN.(RO)* 
R3 
0 

•TRBUF.RO 
1(R0).R1 
♦177400. Rl 
Rl.SNDCNT(RS) 
♦4.SNDCNTCR5) 
42. Rl 
CHKSUM 
Rl.(RO)* 
Rl 

Rl.CRO)* 
46IT12.8R5 
E 

4RSEND.XSFLGCR5) 



»BCNT<128. 
> SO LAST PACKET NOW 
I USE REMAINING COUNT 
j USE 126. BTTES 
,COPY COUNT TO BUFFER 
|R3-C0UNT£R TO LOAD BUFF 
iFLAG FIRST 
I SKIP COUNT 
tINSERT DATA 
i MORE? 
jTES 

, - ->TOP AGAIN 
I GET COUNT 
I ZERO SIGN EXTEND 
{HOW MANY TO SEND PLUS 
» FLAG. COUNT. CMKSUM 
I COMPENSATE FOR FLAG ♦ C 
j FOR CHECKSUM CALC. 
I CMKSUM INTO PACKET 
<EVEN ON AN 000 
tBYTE BOUNDARY 
I LAST DATA PACKET? 
J NO 

I YES -EXPECT 'END' 



♦RSNDSZ.XSCNKR5) ;0F THIS SIZE 
•1.XSPKNMCR5) i AND 1 PACKET 
F i SEND 

#«SC0NT.XSFLG(R5) jCNOT LAST), EXPECT 



•l.XSCNT(RS) 
•1.XSPKNMCR5) 
RSVP 

46IT3.SR5 

T 

•BIT10.8R5 

G 

4128. .R2 

A 

H 

RtC.BCNT.DR 

«BIT10!BIT3.8R5 

G 



t AND 1 BYTE 
t AND 1 PACKET 
: SEND PACKET 

I AND RETURN TO SCHEDULER 
» FLAG BYTE RETRY? 
I YES 

s RETRY DATA ERROR? 
:YES 

.• NO. MORE DATA TO SEND? 
I YES 
J NO 

j RETRY MERE 
: RE TRY AGAIN? 
:YES 
* DONE 



F3 



GLOBAL AREAS 
CZlUUF.Pil 

4552 
4553 
4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
4581 
4582 
4583 
4584 
4585 
4586 
4587 
4586 
4589 
4590 
4591 
4592 
4593 
4594 
4595 
4596 
4597 
4598 
4599 
4600 
4601 
4602 
4603 
4604 
4605 
4606 
4607 
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SYSTEM MACRO DEFINITIONS 



SEO 0031 



THE SEEK MACRO IMPLEMENTS THE COMPLETE PROTOCOL TO INITIATE A SEEK 
SEQUENCE. 

SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
(XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG. XSCNT). CALLS 
•RSVP' TO SEND EACH PACKET. AND 'CHKSUM' TO CALC. THE PACKET 
CHECKSUM. 

INPUTS - DEVICE BLOCK SR5 

UNITS TEST REGISTERS FROM SWAPIN 
TRBUF • BUFFER ADDRESS 



OUTPUTS - 



XSPKNM • • OF PACKETS EXPECTED 
XSFLG • FLAG BYTE OF 1ST PACKET 
XSCNT • BYTE COUNT OF 1ST PACKET 
*** 

* SUBSEQUENT XSFLGS 

* AND XSCNTS 
*** 



.MACRO TUSEEK RE COR.? A 

•NLIST 
.LIST ME 
.LIST 



MOV 

MOVB 

MOVB 

MOVB 

MOV 

MOVB 

CLRB 

CLRB 

CLR 

CLR 

MOV 

TST 

CALL 
MOV 

MOV 
MOVB 
MOV 
MOV 

CALL 

BIT 
BNE 



s-->(POINT TO) XMIT BUFF 
j FORM COMMAND MESSAGE PA 
{THIS BIG 
:0P CODE IS SEEK 
{TO THIS RECORD 
; AND WHICH DRIVE 
j NO MODIFIER 
;N0 SWITCHES 
i NO SEQUENCE 9 
sNO BYTE COUNT 
i GET COUNT 
jPLUS FLAG ♦ BCNT 
{FOR CHECKSUM CALC 
iRO-->TOP RW OF BtTE 
{INSERT INTO PACKET 
{SET UP EXPECTATIONS: 
•RSSNSZ . SNDCNTC R5 ) {HOW MANY TO SEND 
♦RSCMND.XSFLGCR5) {EXPECT END PACK 
♦RSNDSZ.XSCNTCR5) {COUNT UlTH THIS 
#1. ,XSPKNM(R5) {EXPECT ONLY t PACKET 

RSVP {SEND 

{AND RETURN TO SCHEDULER 
♦BIT3.8R5 {RETRY (FLAG BtTE ERROR) 

A {YES 



♦TRBUF. RO 

•RSCMND.8R0 

♦RSMSIZ.KRO) 

«RSSSEK.2(R0) 

REC.IO.(RO) 

DR.4.(R0) 

3.(R0) 

5. (R0) 

6. (R0) 
8.(R0) 
•RSMSIZ.R1 
(Rl)» 

CHKSUM 
Rl.(RO) 



GLOBAL AREAS 
CZTUUT.PU 



MACYll 30(1046) 
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4608 
4609 
4610 
4611 
4612 



.NLIST 
.NLIST ME 
.LIST 
.ENDM 



H3 



GLOBAL AREAS 
CZTUUT.P11 

4615 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4626 
4629 
4630 
4631 
4632 
4633 
4634 
4635 
4636 
4637 
4636 
4639 
4640 
4641 
4642 
4643 
4644 
4645 
4646 
4647 
4648 
4649 
4650 
4651 
4652 
4653 
4654 
4655 
4656 
4657 
4658 
4659 
4660 
4661 
4662 
4663 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
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SYSTEM MACRO DEFINITIONS 



SEQ 0033 



THE RETRY MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO INITIATE 
A RETRY CREAO OPERATION) SEQUENCE . 

SETS UP THE EXPECTEO PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
CXSPKNM) AND THEIR FLAG BYTES AND COUNTS ( XSFLG . XSCNT). CALLS 
•RSVP' TO SEND EACH PACKET. AND 'CHKSUM' TO CALC. THE PACKET 
CHECKSUM. 

INPUTS - DEVICE BLOCK SR5 

TRBUF • BUFFER ADDRESS 

UNITS TEST REGISTERS FROM SUAPIN 

OUTPUTS - SNDCNTCR5) • ♦ OF BYTES TO SEND 
XSPKNM • ♦ OF PACKETS EXPECTED 
XSFLG • FLAG BYTE OF 1ST PACKET 
XSCNT ■ BYTE COUNT OF 1ST PACKET 
*** 

* SUBSEQUENT XSFLGS 
> 

» AND XSCNTS 



.MACRO TURTRY REC.BCNT.DR.?A.?B.?C.?D.?E 



.NLIST 
.LIST ME 
.LIST 



A: 



MOV 

MOVB 

MOVB 

MOVB 

MOV 

MOVB 

CLRB 

TSTB 

BPL 

INCB 

MOV 

MOVB 

CLR 

MOV 

TST 

MOV 

CALL 
MOV 

MOV 

MOV 
ADD 
CLR 
INC 



♦TRBUF. RO 

♦RSCMND . 8R0 

4RSMSIZ , 1( RO ) 

4RSSR0.2CR0) 

REC.10.CR0) 

DR.4.CR0) 

3(R0) 

8R5 

E 

3CR0) 

BCNT.8.CR0) 
•020.5. (RO) 
6.(R0) 
4RSMSIZ.R1 
(Rl)» 



{FORM CMND PACK: 
{MESSAGE PACK TYPE 
iTHIS BIG 
;0P CODE -RE AO 
{THIS RECORO 
{THIS DRIVE 

{PRESET NORM THRESHOLD 
{REDUCED? 
(NO 

{YES -CHANGE THRESHOLO 
{* BYTES DESIRED 
(MAINTENANCE MOOE 
(NO SEQUENCE ♦ 
(SIZE OF PACKET 
(PLUS FLAG*COUNT INTO Rl 



♦RSSNSZ.SNDCNT(RS) {SET UP SIZE TO SEND 

CHKSUM (FORM CHECKSUM Rl-COOU 

Rl.(RO) (INSERT IN PACKET 

BCNT.R1 (SET EXPECTATIONS: 

(CALC ♦ OF DATA PACKETS 
♦XSFLG. R3 (OFFSET OF FLAG 

R5.R3 (ABS. AODR. & XSFLG 

R2 {PRESET 
R2 {♦ PACKETS EXPECTED 



GLOBAL AREAS 
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4671 
4672 
4673 
4674 
4675 
4676 
4677 
4678 
4679 
4680 
4681 
4682 
4683 
4684 
4685 
4686 
4687 



.NLIST 
.NLIST ME 
.LIST 
.ENDM 



MOV ORS0ATA.(R3). 

MOV 4132.. (R3). 

SUB 4128., Rl 

BLOS C 

BR A 

INC R2 

MOV R2,XSPKNMCR5) 

MOV 4RSEND.CR3)» 

MOV ORSNOSZ . ( R3 ) 

CALL RSVP 



SEQ 0034 

j LOAD XSFLG 

lANO EXPECT COUNT 

i MEG RESULT LAST TIME 

lLAST TIME! 

I MORE TO 00 

j ADO ONE FOR END PACK 

j SAVE ♦ PACKETS TO EXPEC 

I EXPECT AN END 

iTMIS BIG- 14. BYTES 

iSEND 

(AND RETURN TO SCHEDULER 



J3 



GLOBAL AREAS 
CZTUUF.P11 

4690 
4691 
4692 
4693 
4694 
4695 
4696 
4697 
4698 
4699 
4700 
4701 
4702 
4703 
4704 
4705 
4706 
4707 
4708 
4709 
4710 
4711 
4712 
4713 
4714 
4715 
4716 
4717 
4718 
4719 
4720 
4721 
4722 
4723 
4724 
4725 
4726 
4 727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
4745 
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SYSTEM MACRO DEFINITIONS 



SEQ 0035 



THE READ MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO INITIATE 
A READ SEQUENCE. 

SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
(XSPKNM) AND THEIR FLAG BYTES AND COUNTS (XSFLG, XSCNT). CALLS 
•RSVP' TO SEND EACH PACKET. AND 'CHKSUM' TO CALC. THE PACKET 
CHECKSUM. 

INPUTS - DEVICE BLOCK SR5 

TRBUF - BUFFER ADDRESS 

UNITS TEST REGISTERS FROM SUAPIN 

OUTPUTS - SNDCNTCR5) ■ ♦ OF BYTES TO SEND 
XSPKNM ■ ♦ OF PACKETS EXPECTED 
XSFLG • FLAG BYTE OF 1ST PACKET 
XSCNT - BYTE COUNT OF 1ST PACKET 
*** 

» SUBSEQUENT XSFLGS 
> 

* AND XSCNTS 
*** 

.MACRO TUREAD REC.BCNT.DR.VER.?A.?B.?C.?D.?E 

.NLIST 
.LIST ME 
.LIST 



E: MOV ♦TRBUF. RO 

MOVB ♦RSCMNO.flAO 

M0V8 MSMSI2.1CR0) 

MOVB «RSSR0.2(R0) 

MOV REC.10.CR0) 

MOVB DR.4.CR0) 

MOVB VER.3.CR0) 

MOV BCNT.8.CR0) 

MOVB «020.5.CR0) 

CLR 6.CR0) 

MOV «RSMSIZ.R1 

TST (Rl)» 

MOV «RSSNSZ.SNDCNT( 

CALL CHKSUM 

MOV Rl.(RO) 

MOV BCNT.R1 

MOV ♦XSFLG. R3 

ADD R5.R3 

CLR R2 

A : INC R2 

MOV 0RSDATA.CR3)* 

MOV ♦132..(R3)» 

SUB ♦128.. Rl 



tFORM CMND PACK: 

t MESSAGE PACK TYPE 

{THIS BIG 

;0P CODE IS READ 

;THIS RECORD 

{THIS DRIVE 

{VERIFY 

{TOTAL BYTES TO READ 
{MAINTENANCE MODE 
(NO SEQUENCE ♦ 
{GET SIZE OF PACKET 
{♦2 FOR CHECKSUM 
R5) {SIZE TO SEND 
{FORM CHECKSUM Rl -COUNT 
{INSERT CHECKSUM 



{SET EXPECTATIONS: 

{CALC ♦ OF DATA PACKETS 

(GET OFFSET 

{ ABS. ADDR. OF XSFLG 

{PRESET AS NONE 

{♦ PACKETS EXPECTED 

{LOAD XSFIG 

{AND EXPECTED COUNT 

;NEG RESULT LAST TIME 



GLOBAL AREAS 
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4 746 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
4758 
4759 
4 760 
4 761 
4762 
4763 
4764 



.NLIST 
.NLIST ME 
.LIST 
.ENOM 



SEQ 0036 





r 
v> 


fl ACT TTMP 


RR 




,madc to nn 
j nunc I U UU 


INC 


RP 


» Ann hup pod run Darw 


MOV 






MOV 


0RSEND.(R3)» 


iEXPECT AN END ALSO 


MOV 


0RSNDSZ.CR3) 


iTMIS BIG- 14. BYTES 


CALL 


RSVP 


jSENO 






i ANO RETURN TO SCHEDULER 


BIT 


«eiT10!BIT3.aRS 


;RETRY? 


BEQ 


B 


«N0. 


TURTRY 


REC.BCNT.DR 


:YES 


BR 


0 


; ANOTHER RETRY? 


NOP 




jNO 



L3 



GLOBAL AREAS 
CZTUUF.PH 

4767 
4 768 
4 769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4776 
4779 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 
4606 
4607 
4808 
4809 
4810 
4611 
4812 
4813 
4814 
4815 
4816 
4617 
4618 
4819 
4820 
4621 
4822 
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SYSTEM MACRO DEFINITIONS 



SEQ 0037 



THE SELF TEST MACRO IMPLIMENTS THE COMPLETE PROTOCOL NECESSARY TO 
INITIATE A 'DIAGNOSE' SEQUENCE. 

SETS UP THE EXPECTED PROTOCOL RESPONSES: THE NUMBER OF PACKETS 
CXSPKNM) AND THEIR FLAG BYTES AND COUNTS CXSR.G. XSCNT). CALLS 
•RSVP' TO SEND EACH PACKET, AND 'CHKSUM' TO CALC. THE PACKET 
CHECKSUM. 



INPUTS 



OUTPUTS 



DEVICE BLOCK SR5 

TRBUF • BUFFER ADDRESS 

UNITS REGISTERS TEST FROM SUAPIN 

SNDCNKR5) - * OF BYTES TO SEND 
XSPKNM • • OF PACKETS EXPECTED 
XSFLG - FLAG BYTE OF 1ST PACKET 
XSCNT - BYTE COUNT OF 1ST PACKET 



*** 
* 



SUBSEQUENT XSFLGS 



* AND XSCNTS 



*** 



.MACRO TUSELF ?A 

.NLIST 
.LIST ME 
.LIST 

A: 



MOV 

MOVB 

MOVB 

MOVB 

CLRB 

CLR 

CLR 

CLR 

CLR 

MOV 

TST 

MOV 

CALL 

MOV 

MOV 

MOV 

MOV 

CALL 

BIT 

BNE 



;FORH COMMAND PACKET 
; COMMAND FLAG 
;SIZE OF MESSAGE 
j SELF TEST OPERATION 
j NO MODIFIER. 
jNO DRIVE OR SWITCHES 
;N0 SEQUENCE NUMBER 
iNO BYTES 
i NO RECORD 4 
;GET SIZE 
i*2 FOR CHECKSUM 
♦RSSNSZ.SN0CNTCR5) jSIZE TO SEND 

CHKSUM ;FORM CHECKSUM 

Rl.(RO) j INSERT INTO PACKET 

4RSEND , XSFLGC R5 ) ; EXPECT END. 
♦RSNDSZ.XSCNTCR5) :THIS BIG 
41.XSPKNMCR5) s AND 1 PACKET 
I SEND 

; RETURN TO SCHEDULER 
i RE TRY ?( BAD FLAG") 
5 YES 



4TRBUF.R0 
4RSCMND . 8R0 
4RSMSIZ.KR0) 
4RSSSLF.2(R0) 
3(R0) 
4(R0) 
6(R0) 
8.CR0) 
10. (RO) 
4RSMSIZ.R1 
CRD* 



RSVP 

♦BIT3.8R5 
A 



.NLIST 
.NLIST ME 
.LIST 
.ENDM 



M3 



GLOBAL AREAS 
CZTUUF.P11 
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SEQ 0038 



4825 
4826 
4827 
4828 
4829 
4830 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
4850 



; THE TEST ID MACRO INTERFACES THE SUPERVISOR'S TEST DISPATCH TO THfc 
sDIAGNCSTIC'S FORMAT BY IMPLEMENTING CALLS THAT: 1) INITIALIZE THF 
;PC OF THE TEST CODE (TSTPCCR5)). 2) ASSIGN THE 1ST DRIVES, 3) Rt* 
; THE TEST, 4) SWITCH DRIVES AND REINITIALIZE. 5) THE TEST AGAIN. 

i - - 

. MACRO TST ID ADDRES , ?A 

.NLIST 
.LIST ME 
.LIST 



.NLIST 
.NLIST ME 
.LIST 
.ENDM 



A: 



MOV 


ADDRES. TSTTOP i 


SAVE ADOR OF TEST 


CALL 


SETUP j 


INIT LWITS TSTPC 


CALL 


SETDR 


GET 1ST DRVS. 


CALL 


RUN 


DO TEST 


CALL 


SUAPDR 


GET NEXT DRVS. 


BCC 


A 


,BR NO 2ND DRVS 


CALL 


SETUP 


s RE INIT UNITS TS1PC 


CALL 


RUN 


; REPEAT TEST 




s DONE 



N3 
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SEQ 0039 



4853 
4854 
4855 
4856 
4857 
4858 
4859 
4860 
4861 
4862 
4969 
4870 
4871 
4872 
4873 
4874 
4917 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 



005532 
005534 
005542 
005546 
005552 
005554 
005562 
005564 
005572 
005574 
005600 
005602 
005610 
005612 
005620 

005622 
005624 
005626 
005634 
005636 
005642 
005644 
005646 



005002 
012737 
017705 
032715 
001013 
032765 
001007 
032765 
001403 
105265 
005202 
023727 
103004 
062737 
000750 

005702 
001410 
022737 
001003 
005737 
001001 
000261 
000207 



003352 
000102 
100000 

000001 

001000 

000060 

005650 

000002 



002226 



. SBTTL GLOBAL SUBROUTINES SECTION 

THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES THAT ARE USED 
TO LINK THE DIAGNOSTIC TO THE SUPERVISOR (THROUGH THE TSTIO HACRO). 



SWAPDR 

SUBROUTINE TO DETERMINE IP TO TEST OTHER ORIVE (FOR ALL UNITS) 
INPUTS: DR(R5) - DRIVE CONFIGURATION 

BLKTBL - TOP OF DATA BLOCK ALLOCATION TABLE 
LSTDEV - ADDR. OF LAST UNIT'S DATA BLOCK 

OUTPUTS: DR(R5) UPDATED TO TEST SAME OR OTHER DRIVE 

CARRY SET IF SECOND PASS NECESSARY 



005650 000000 





SWAPDR : 


: CLR 


R2 


jFOR ♦ OF DRIVE l'S. 


005650 




MOV 


•BLKTBL, SWPTR 


tTABLE ADDR. OF 1ST UNIT 


It: 


MOV 


8SWPTR.R5 


iGET DATA BLOCK ADDR. 






BIT 


4BIT15.8R5 


I ABORTED? 






BNE 


31 


lYES 


000060 




BIT 


«BIT0.DR(R5) 


iDID DR. 0? 




BNE 


31 


jNO. DID DR.l 1ST PASS 


000060 




BIT 


0BIT9.DR(R5) 


lYESi 1 SELECTED? 




BEQ 


31 


iNO. ALL DONE 






INCB 


DR(R5) 


lYES. SWAP 






INC 


R2 


j ONE MORE TO TEST 


003370 


3$: 


CMP 


SWPTR. *LSTDEV 


jLAST DEVICE? 






BHIS 


41 


j YES 


005650 




ADD 


#2. SWPTR 


s NO-POINT NEXT 




BR 


1$ 


;00 




4$: 


TST 


R2 


s (CLEAR CARRY). MORE TO DO? 




BEQ 


5$ 


;N0 


003330 




CMP 


♦TST3.TSTT0P 


;IN TEST 3? 




BNE 


6t 


;IF NOT. SET CARRY £ RETURN 






TST 


D0T3FL 


;TEST3-DRIVE 0 ONLY FLAG SET? 






BNE 


51 


;IF SET. RETURN WITH CARRY CLEAR 




6t: 


SEC 




sSET CARRY TO TEST OTHER DRIVES 




51: 


RETURN 




; RETURN 




SWPTR: 


.WORD 







B4 
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SEQ 0040 



4956 
4959 
4960 
4961 
4962 
4963 
4964 
4965 
4966 
4967 
4966 



SETDR 
INPUTS: 



SUBROUTINE TO GET DRIVE FOR 1ST PASS FOR EACH TEST 

OR(RS) - ORIVE CONFIGURATION 

BLKTBL - TOP OF DATA BLOCK ALLOCATION TABLE 

LSTPEV • AOOR. OF LAST UNIT'S OATA BLOCK 



OUTPUTS: 



DRCR5) IS SET TO TEST ORIVE O OR ORIVE 1 



4969 


005652 


012737 


003352 


005726 


SETDR:: 


MOV 


•BLKTBL. SETPTR 


•TABLE OF ADOR. 


1ST UNIT 


4970 


005660 


017705 


000042 




11: 


MOV 


8SETPTR.R5 


•GET DATA BLOCK 


AOOR. 


4971 


005664 


105065 


000060 






CLRB 


0R(R5) 


•PRESET AS DRO 




4972 


005670 


032765 


000400 


000060 




BIT 


«BIT6.DR(R5) 


•DO DRO? 




4973 


005676 


001002 








BNE 


21 


• YES 




4974 


005700 


105265 


000060 






INCB 


DR(R5) 


I NO -USE ORIVE 1 




4975 


005704 


023727 


005726 


003370 


21: 


CMP 


SETPTR. 4LSTDEV 


•MORE UNITS 




4976 


005712 


103004 








BMIS 


31 


i NO-EXIT 




4977 


005714 


062737 


000002 


005726 




AOO 


♦2. SETPTR 


•YES GET TABLE ENTRY 


4976 


005722 


000756 








BR 


11 


•CONFIGURE THAT 


UNIT 


4979 


005724 


000207 






31: 


RETURN 






4960 


005726 


000000 






SETPTR: 


.WORO 









C4 
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4985 
4984 
4985 
4986 
4987 
4988 
4989 
4990 
4991 
4992 
4993 

4994 005730 

4995 005736 

4996 005742 

4997 005746 

4998 005754 

4999 005756 

5000 005764 

5001 005766 



25 JAN 84 08:33 PAGE 21 

GLOBAL SUBROUTINES SECTION 



SEO 0041 



012737 003352 006022 
017705 000060 
004737 005770 
02372? 006022 003370 
103004 

062737 000002 006022 

000764 

000207 



*CLRALL 
INPUTS s 



OUTPUTS: 
CALLS: 



CLRALL : : MOV 
1«: NOV 
CALL 
CMP 
BMIS 
ADO 
BR 



CLEARS INPUT BUFFER FOR RESPONSE FROM UNIT. 



BLKTBL - TOP OF OATA BLOCK ALLOCATION TABLE 
LSTOEV - AOOR. OF LAST UNIT'S DATA BLOCK 

ALL UNITS BUFFERS CLEARED. 

CLRBUF 



2«: 



RETURN 



•BLKTBL. CLRPTR 

BCLRPTR.R5 

CLRBUF 

CI RPTR.#LSTDEV 
21 

♦2. CLRPTR 
II 



l TOP OF TABLE OF ADDRESSES 

i GET DATA BLOCK 

I CLEAR ITS RECEIVE BUFFER 

lLAST DEV? 

I YES 

i--»NEXT 
I CONTINUE 



D4 
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GLOBAL SUBROUTINES SECTION 



SEO 0042 



5004 
5005 
5006 
5007 
5008 
5009 
5010 
5011 
5012 
(1) 
(1) 
(1) 
5013 
(1) 
(1) 
CI) 
5014 
5015 
5016 
5017 
5018 
5019 
(1) 
(1) 
5020 
(1) 
(1) 
5021 
5022 



005770 
005770 



005772 
005772 



005774 
006000 
006004 
006006 
006012 
006014 
006014 

006016 
006016 

006020 
006022 



CLRBUT - CLEARS 1 UNIT'S INPUT BUFFER . 
INPUTS: RCVBUF(RS) IS BUFFER START 

RCBFSZ - SIZE OF RECEIVE BUFFER IN BYTES 

RCBFSZ IS SIZE OF BUFFER 
OUTPUTS: CLEAREO AREA. 



CLRBUF:: PUSH RO 



010046 



010446 



016500 000102 
012704 001036 
005020 

162704 000002 
001374 

012604 



012600 

000207 
000000 



PUSH 



MOV 
NOV 

II: CLR 
SUB 
BNE 
POP 



POP 



RETURN 
CLRPTR: .WORD 



R4 



i SAVE RO 

MOV RO.-(SP) 



i SAVE R4 

MOV R4.-CSP) 



RCVBUF(R5).R0 jGET ADDRESS OF BUFFER 



•RCBFSZ. R4 
(R0)» 
♦2.R4 
It 
R4 



RO 



i SIZE IN BYTES 
i CLEAR IT 
i 2 BYTES LESS 
I MORE 
.RESTORE 

MOV (SP)».R4 



I 

MOV 
iEXIT 



(SP)..RO 



E4 



GLOBAL AREAS 
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5025 
5026 
S027 
5028 
5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
5037 
5038 
5039 
5040 
5041 
5042 
5043 
5044 
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SEO 0043 



006024 
006030 
006036 
006042 
006050 
006056 
006060 
006066 
006070 



005037 003324 

012737 003352 003326 

017705 175264 

013765 003330 000020 

023727 003326 003370 

103004 

062737 000002 003326 

000763 

000207 



SETUP • CALLEO WITHIN EACH TEST TO INSERT BEGINNING AOORESS OF THE 

TEST INTO ALL UNITS TEST PC'S. 
INPUTS: TSTTOP LOADED WITH TEST ALGORITHMS STARTING AOOR. 

BLKTBL - TOP OF DATA BLOCK ALLOCATION TABLE 
LSTDEV - ADDR. OF LAST UNIT'S DATA BLOCK 



OUTPUTS: 



SETUP: ; CLR 
MOV 

II: MOV 
MOV 
CMP 
BHIS 
ADO 
BR 



2t: 



RETURN 



1STPCCR5) FOR ALL UNITS 
DONE • CLEARED 



DONE i NOT DONE YET 

4BLKTBL . IDPTR j TABLE TOP ADOR 

8IDPTR.R5 i DEVICE'S DATA BLOCK 
TSTTOP. TSTPC(RS) i INSERT PC FOR TOP OF TEST 

IDPTR, #LSTDEV i ALL UNITS SET? 

21 i YES 

•2 , IDPTR i NO. GET NEXT POINTER 

II iSET HIM UP 



I DONE 



F4 
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SEQ 0044 



504 7 
5048 
5049 
5050 
5051 
5052 
5053 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
(3) 
5061 
5062 
5063 
5064 



RUN - IMPLEMENTS THE CALLS TO SEND PACKETS. RECEIVE PACKETS. THEN 

CHECK ANSWERS DURING TEST RUN TIME . 
INPUTS: OONE 
OUTPUTS: NONE 



006072 004737 006122 

006076 005737 003324 

006102 001006 

006104 004737 007172 

006110 

006110 104422 

006112 004737 010616 

006116 000765 

006120 000207 



RUN: : CALL 

TST 
BNE 
CALL 

BREAK 



NXTST 

OONE 
21 

GETANS 



2t: 



CALL CHKANS 
BR RUN 
RETURN 



I MAKE ANO SENO NEXT PACK TO ALL 
i UN ABORTED UNITS 
I COMPLETE 7 
iTES 

t NO. GET ALL RESPONSES 
I SUPERVISOR CHECK 



i CHECK ALL RESPONSES 
I CONTINUE TILL DONE 



TRAP 



CSBRK 



G4 



GLOBAL 
CZTUUF. 

5067 
5068 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 
5081 
5082 
5083 
5084 
5085 
5086 
5087 
5088 
5089 
5090 
5091 
5092 
5093 
5094 
5095 
5096 
5097 
(1) 
(1) 
(1) 
CI) 
(1) 
(1) 
5098 
5099 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5108 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
5109 
5110 
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SEQ 0045 



SBTTL NXTST / THE SCHEDULER 



006122 
006124 
006132 
006136 
006140 
006142 
006146 
006150 
006154 
006156 
006162 
006164 
006164 
006170 
006174 
006200 
006204 

006210 
006214 
006216 
006224 
006230 
006232 
006236 
006240 
006246 

006250 
006250 
006254 
006260 
006264 
006270 



000240 
012737 
017705 
005715 
100504 
032715 
001040 
032715 
001426 
032715 
001453 

016500 
016501 
016502 
016503 
016504 

020265 
001036 
042737 
042715 
000450 
032715 
001445 
052737 
000424 



016500 
016501 
016502 
016503 
016504 



NXTST - DISPATCH EXECUTION USING EACH UN -ABORTED UNIT'S TEST PROGRAM 

COUNTER. (TSTPCCR5)). (THE POINTER TO THE TEST CODE THAT COMPRISES 
MAKING A PACKET AND SENDING IT. CHECKS FIRST FOR ANY UN- ABORT EO UNIT 
THAT IS RETRYING EITHER A DATA ERROR OR A ' INDECIPHERABLE FLAG BYTE' 
ERROR. IN ORDER TO SERVICE ONLY THAT UNIT THIS PASS. INITS 
NON-RETRYING UNITS IF NECESSARY. IF NO RETRIES. DISPATCH ALL 
UNITS IN ROUND ROBIN FASHION. 

INPUTS: (IHPLIEO) DATA BLOCKS. 

BLKTBL • TOP OF DATA BLOCK ALLOCATION TABLE 
LSTDEV - ADDR. OF LAST UNIT'S DATA BLOCK 

OUTPUTS: ERRSF IF ALL UNITS ARE ABORTED. (TO NOTIFY APT) 

SYSTAT IS UPDATED 



003352 003314 
175156 



000010 
020000 
000400 

000006 
000010 
000012 
000014 
000016 

000206 

000004 003310 
020000 

002000 

000002 003310 



000006 
000010 
000012 
000014 
000016 



NXTST: : 


NOP 








MOV 


•BLKTBL. DEVPTR 


(UNIT 0 TO START 


lti 


MOV 


8DEVPTR.R5 


(GET OATA BLOCK 




TST 


8R5 


t ABORTED? 




BMI 


2% 


I YES... CHECK NEXT UNIT 


3$: 


BIT 


4BIT3.8R5 


iNO -RETRY 'BAD FLAG' ? 




BNE 


5t 


(YES... (SEND BREAK t THEN CMD PACK 
(NO-RETRYING STILL (NO END PACK 




BIT 


4BIT13.8R5 




BEQ 


7» 


(NO. . . 




BIT 


«BIT8.8RS 


(RETRYING A WRITE? 




BEQ 


4t 


(NO... 

(YES-GET DEVICE REGESTERS 




SUAPIN 





MOV 
MOV 
MOV 
MOV 
MOV 



6.(R5).R0 
8.(R5).R1 
10.(R5).R2 
12.(R5).R3 
14.(R5).R4 



Hi 



5$: 



CMP 


R2.SAVCNT(R5) 


BNE 


4$ 


BIC 


4BIT2. SYSTAT 


BIC 


4BIT13.8R5 


BR 


2t 


BIT 


46IT10.SR5 


BEQ 


21 


BIS 


♦BIT1. SYSTAT 


BR 


61 


SUAPIN 





006274 010265 000206 



MOV 



R2.SAVCNUR5) 



(CURRENT COUNT • SAVED COUNT? (WHERE UE STARTED) 
(NO. . .(CONTINUE SENDING DATA PACKS) 
(YES -CLEAR RETRY FLAGS 

(CHECK NEXT UNIT. 
(NO-RETRY DATA ERROR? 
(NO... ON TO NEXT UNIT 

(SET RETRY STATUS TO ' DATA ERROR' TYPE 
(YES... 

(GET DEVICE REGISTERS 
MOV 6.(R5).R0 
MOV 8.(R5).R1 
MOV 10.(RS).R2 
MOV 12.(R5).R3 
MOV 14.(R5).R4 

(SAVE THE BYTE COUNT (FOR WRITE OPERATION) 
(TO MARK HOW MANY DATA PACKS TO SENT 



H4 
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CI « I 

sill 


006500 


Qv4 r 3 r 


Al JA1A 
U14U3U 


5112 


006304 


032715 


100000 


5113 


006310 


001020 




CI 14 
Ml* 


vvoolc 


Ujc for 


AAAAA4 
VVUVV* 


3113 


AAAYPA 










A1 ASAA 
U1D3VV 


AAAAAA 




AAATPA 


A1 ASA1 
U103vl 


AAAA1 A 


{ % "\ 




A1 ASAP 


AAAA1 P 
WW Ac 


\ X J 




A1 A SAX 


AAAA14 
WWl^ 


\ L J 
f 1 ^ 


aaataa 


A1 ASAA 


AAAA1 A 


Ui 
Si 1 A 


AAA VIA 


AAA77S 


AAAAPA 
WWCv 


Si 1 7 


AA£tCA 

WDOjv 


AAA477 
VVV^ 1 1 




Si 1 A 

31 lo 


AAAXSP 


OP37P7 


AAXX14 


Si 1 Q 


WO JOV 


1A3AA4 




S1 PA 


WDJOC 


AAP7X7 


AAAAA? 


Jlcl 


AAA57A 
WOO fV 


AAOAAO 




Si PP 








Si P* 


aaa*,7P 

WOO f c 


AA^037 


OAASSP 


SI PA 
3K^ 


WOO f o 


01P737 




Si PS 


AAA4A4 
wo^v^ 


Al 77A5 

VJ » 1 VJ 


174704 


SI PA 








Si P7 


AAA41 A 
WO^ Iv 


0AS71S 

V VO 1 1J 




SI DA 
3 IcO 


AAA41 9 
VVO^K 


1 fAAPA 






AAA41 4 


AXP71S 


A4AAOO 

WW 


SI v> 


AAAAPA 


AA14A7 




S131 


AAA4PP 


AAA7T7 
w^ » o » 


A14A5A 


SI XP 


AAAAPA 


AXP71 S 


A4AAAA 

WW 




WO^Ot 


AA1 Al A 
WIVIO 




SIM 


AAAA1A 


AAS71 S 
W 3 r 13 




SI *S 


(VUJ TIL 


1 AAA 1 A 
lVV^ 1*» 




SI v> 


AAAAAA 
WO^^V 






\ 1/ 


AAAAAA 


Al ASAA 
V103VV 


AAAAAA 
wvwo 


f 1 ^ 


AAAAAA 


Al ASA1 
V103V1 


AAAA1 A 
WW IV 


m } 
\i/ 


AAAASA 


Al ASAP 
vIDjvc 


AAAA1P 
WW1C 


m ^ 
v iy 


AAAASA 
W0^3^ 


Al A SAT 


AAAA14 
WWl^ 




AAAAAA 


Al ASAA 
V1D3V* 


AAAA1 A 
VVVVIO 


r i "i 








5137 


AAAAAA 


AA477S 


AAAAPA 




AAAA7A 
WO^ ' V 


AAS71 S 

W3 f 13 




SI 3Q 


AAAA7P 


1 AAAAP 
1 wwc 




5140 


AAAA74 

VW^ f ™ 


AASPT7 


AAASSP 
WO 33C 


S141 


AAASAA 
wo3W 


APT7P7 


AA551 4 


514P 


AAASAA 


1 A1AAA 

1VJVV9 




S143 


AAAS1 A 

WOOIV 


AAP7T7 


AAAAAP 
wvwc 


5144 


006516 


00073P 




S14S 


OOASPO 


APP757 


OOOOIO 

WW XV 


5146 


006526 


001010 




5147 


006530 






(4) 


006530 


104454 




(5) 


006532 


000144 




(5) 


006534 


006554 




(5) 


006536 


000000 




5146 


006540 






(3) 


006540 


104422 




5149 


006542 


005237 


003342 
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NXTST / THE SCHEDULER 



SEQ 0046 



4$: 
6»: 



CALL 
BIT 
BNE 
BIS 

SUAPIN 



OOBRK 

«BIT15.8R5 

2* 

♦BIT2.SYSTAT 



iSENO INIT 
i ABORT EO? 
lYES. . . 

I NOT ABORTEO-SET RETRY STATUS 

I GET OEVICE REGISTERS 

HOV 6.(R5).R0 

MOV 6.(R5).R1 

MOV 10.(R5).R2 

MOV 12.(R5).R3 

MOV 14.(R5).R4 





JSR 


PC.8TSTPCCR5) 


•00 TEST FOR 




BR 


NXTRET 


iTHIS UNIT ONLY-EXIT 


2»: 


CMP 


OEVPTR , 4LSTDEV 


iTRY NEXT UNIT? 




BHIS 


NXTST2 


iNO 




ADO 


•2. , OEVPTR 


|YES.->N6XT 




BR 


11 


iGET BLOCK 


NXTST2: 


CLR 


AB0NM 


I HERE a N0 RETRIES TO 00. NO UNIT ABORTED YET 


MOV 


46LKTBL, OEVPTR 


» ->UNIT 0 STORAGE BLOCK 


PEROEV : 


MOV 


80EVPTR.R5 


iR5-->NEXT OEVICE STORAGE BLOCK 


31: 


TST 


8R5 


i ABORTED? 




BMI 


41 


j YES 




BIT 


46IT14.8R5 


tSENO BREAK? 




BEQ 


61 


iNO 




CALL 


OOBRK 


|YES 




BIT 


•6IT14.8R5 


I SUCCESSFUL INIT? 




BNE 


41 


<N0 ON TO NEXT UNIT 




TST 


SR5 


i ABORTED? 




BMI 


41 


i YES -ON TO NEXT UNIT 


61: 


SUAPIN 




t NO. GET OEVICE REGISTERS R0-R4 CONTAINING TEST P 



MOV 
MOV 
MOV 
MOV 
MOV 



6. (R5).R0 
8.(R5).R1 
10.(R5).R2 
12.(R5).R3 
14.CR55.R4 



4$: 
61: 

5$: 



11»; 



JSR 

TST 

8PL 

INC 

CMP 

8HIS 

ADD 

BR 

CMP 

BNE 

ERRSF 



BREAK 
INC 



PC.8TSTPCCR5) 

8R5 

81 

AB0NM 

DEVPTR , 4LSTDEV 
51 

•2. .OEVPTR 
PEROEV 
48. .AB0NM 
NXTRET 
100. .N0M0R 



ALLG0N 



» INITIATE 1 PACKET TRANSMISSION AND RETURN 
I ABORTED? 

iNO-ON TO NEXT UNIT 

j YES... ONE MORE TALLIED 

.•ALL TU'S TRIED? 

«YES 

iNO THE ADDRESS ♦2"NEXT ADDRESS 

t D0 NEXT UNIT 

1 ALL ABORTEO? 

I NO 

.YES! 

TRAP C*ERSF 
.UORO 100 
.UORO 
.U0R0 

! SUPERVISOR BREAK 

TRAP 

iSET OON'T-PRINT STATISTICS FLAG 



N0M0R 

0 

C$BRK 
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NXTST / THE SCHEDULER 



5150 006546 

C3) 006546 104444 

5151 006550 000207 
5152 

5153 006552 000000 

5154 006554 046101 020114 047125 

5155 006600 



OOCLN 

NXTRETi RETURN 

ABONM : .WORD 
NOHOR: .ASCIZ 
.EVEN 




lEXIT 



SEQ 0047 
TRAP CIDCLN 



I THE NUMBER OF A80RTE0 UNITS 
UNITS ABORTED!/ 

■ i 

* i 

t 

\ 

i 

- v '* • i 
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5157 
5158 
5159 
5160 
5161 
5162 
5163 
5164 
5165 
5166 
5167 
5166 
5169 
5170 
5171 
5172 
5173 
5174 
5175 
5176 
5177 
5178 
5179 
5180 
5181 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
(1) 
CI) 
(1) 
(1) 
CI) 
CI) 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
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RSVP / XOFF AND SEND A PACKET TO ALL DEVICES 

. SBTTL RSVP / XOFF ANO SENO A PACKET TO ALL DEVICES 



SEQ 0048 



RSVP • SAVES TEST CODE PROGRAM COUNTER IN TSTPCCR5) AND UNIT'S REGIS- 
TERS. IF NOT IN TEST 8, POINTS TO "XOFF " TMAT PRECEEDS PACKET IN 
XMIT BUFFER AND SENDS PACKET WITH XOFF. RETURNS TO SCMEDULER CNXTST) 
SO TMAT OTHER UNITS PACKETS MAY BE FORMED. TO GET ALL UNITS WORKING 
AT ONCE. IF IN TEST 6 ANO THE UNIT IS NOT MOOIFIED. SKIP REST OF 
ROUTINE. IF IN TEST 8 ANO THE UNIT IS MOOIFIED DC NOT SENO XOFF AND 
PROCEED NORMALLY. 
INPUTS: CSP) CONTAINS UNITS PC TO SAVE SINCE RSVP WAS CALLED. THE 

NUMBER PACKETS EXPECTED CXSPKNM). ANO THE EXPECTED FLAGS ANO 
BYTE COUNTS OF EACH CXSFLG. XSCNT...) ARE LOADED BY TEST COOE 
C MACROS). 

SNDCNT - • BYTES TO SENO 
RECCR5) - RECORO • 
TRBUF - BUFFER AOOR. 
XSPKNMC R5) - • EXPECTED 
RCVBUFCR5) 



OUTPUTS: 



006600 


000240 






RSVP;: 


NOP 


(SP)*.TSTPC< 


006602 


012665 


000020 






MOV 


006606 










SWAPOW 




006606 


010065 


000006 










006612 


010165 


000010 










006616 


010265 


000012 










006622 


010365 


000014 










006626 


010465 


000016 










006632 


022737 


000002 


003344 




CMP 


02.TEST9 


006640 


001007 








BNE 


XFNSNO 


006642 


022765 


000000 


000210 




CMP 


W.MRSP(R5) 


006650 


001523 








BEQ 


ENORSP 


006652 


012700 


027746 




NOXOFFj 


MOV 


♦TRBUF. RO 


006656 


000404 








BP 


SNO 


006660 


012700 


027745 




XFNSNO: 


MOV 


MRBUF-l.RO 


006664 


005265 


000070 






INC 


SN0CNTCR5) 


006670 


004737 


007122 




SND: 


CALL 


SNOBYT 


006674 


005715 








TST 


SR5 


006676 


100510 








BMI 


61 



CMOSNT - UPDATED WITH PACKET OP COOE 

BLKER - RECORO NUMBER STATISTICS UPOATED IF NOT RETRYING 

ANO COMMAND PACKET SENT. 
SUCCS(R5) - PRESET CLEAR 

STATUS WORD 8R5 - BIT9 - OATA CHECK ERROR - CLEARED 

BITS - "VERIFY" OPERATION 

BIT4 - 0 - DATA PACK 1 - CMNO 

BIT6 - RD/UR OPERATION 
XSPTR - POINTS TO EXPECTEO FLAG 
UPPER BYTE OF XSPKNM IS REPLICATED. 

PACKET POINTER (PKPTR(R5)) POINTS TO TOP OF UNITS RECEIVE BUFFER 
AREA (RCVBUF(R5)) FOR CURRENT UNIT. 



iFINISH TEST 



: SAVE TEST REGISTERS 



MOV 
MOV 
MOV 
MOV 
MOV 



R0.6.CR5) 
R1.8.(R5) 
R2.10.CR5) 
R3.12.CR5) 
R4.14.CR5) 



^CORRECT FOR RETURN TO SCMEDULER 
,****♦ IS THIS TEST 9 
i***** NO 

IF SO. IS THIS UNIT MOOIFIED 
,+++** YES 

i FOR NORMAL PACKET SEND 
j SENO XOFF*PACKET 
iPOINT TO XOFF 
jONE MORE TO SEND. TOO. 
{SEND BYTE 

*R5--> TO STATUS BLK 
; ABORTED? YES... QUIT 



I<4 
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RSVP / XOFF ANO SENO A PACKET TO ALL OEVICES 



5EQ 0049 



5207 


006700 


005365 


A/\/\A "7A 

000070 


5206 


006704 


001371 




5209 


006706 


012700 


A A 1T4£ 

027746 


5210 


006712 


016537 


AAAA£. A 

000064 


5211 


006720 


156565 


AAAAVA 

000032 


5212 


006726 


005065 


A. A_/\/\ ^ £. 

000076 


5213 


006732 


A* A^ • c 

042715 


/VA « AAA 

001000 


5214 


006736 


016565 


AAA* AA 

000102 


5215 


006744 


012704 


AAAAfA 

000034 


5216 


006750 


a/ ACAJ 

060504 




5217 


AA^ T C A 

006752 


010465 


AAA 1 AX 

OUOlOo 


5218 








C A « A 

5219 


006756 


AJi A T « C 

042715 


AAAAAA 
OOOU2U 


c AAA 

5220 


006762 


1 AO! 

121027 


AAAAAA 

sjQQQVd 


c a a « 

5221 


AA£ ^£.4. 

006766 


/VA « /\r A 

001054 




E A A A 

5222 


AA£ "7 TA 

006770 


116065 


AAAAA A 


C A A* 

5223 


006776 


052 7 Id 


AAAAOA 


C AAA 

5224 








c a ac 
5225 


aa^aaa 


A1A7« C 

U52 rl3 


AA3AAA 


c a a* 

5226 


007006 


AA( AJ Ji 

001044 




5227 


AA^A « A 

007010 


126027 


AAAAAO 


c a ao 

5228 


007016 


AA« A« O 

001012 




c a a*% 

5229 


007020 


042715 


AAAJAA 


C A» A 

5230 


007024 


0Q4737 


A« *^r.A 


5231 


007030 


10 34 US 




CAVA 

5232 


AA^ A» a 

007032 


005265 


AAA « « 1 

OOOH4 


con 


007036 


AAAJAA 

000402 




5234 


AATA* A 

007040 


005265 


AAA « « £L 

OOOllo 


5235 








ca*£. 
5236 


007044 


126027 


AAAAAA 
000002 


5237 


AA^AC A 

007052 


aa • a a a 
001022 




52 3o 


007054 


ac a ^ • c 

052715 


AAAJAA 

000400 


5239 


AAlAf A 

007060 


105760 


AAAAAT 

000003 


C Ail A 

5240 


007064 


001403 




Oil 4 

5241 


007066 


AC A T « C 

052715 


AAAA* A 

000040 


D242 


U07072 


AAA A A"^ 

000402 






AA 1A 7 _ 


AJ37 « c 
r ID 


AAAAJA 


5244 


007100 


004737 


013660 


5245 


007104 


103403 




5246 


007106 


005265 


000110 


5247 


007112 


000402 




5248 








5249 


007114 


005265 


000112 


5250 


007120 






5251 


007120 


000207 





003334 
000033 



000104 



000100 



000002 



000003 



DEC 

BNE 

MOV 

MOV 

BISB 

CLR 

BIC 

MOV 

MOV 

ADO 

MOV 

BIC 

CMPB 

BNE 

MOVB 

BIS 

BIT 

BNE 

CMPB 

BNE 

BIC 

CALL 

BCS 

INC 

BR 

8$: INC 

41: CMPB 
BNE 
BIS 
TSTB 
BEQ 
BIS 
BR 

21» : BIC 
22$: CALL 
BCS 
INC 
BR 

5»: INC 
6t: 

ENORSP: RETURN 



SNDCNTCR5) iNO. SENO MORE 

SND i IF MORE TO SEND 

4TRBUF.R0 i-->BUFFER 
RECCR5) iBLKER i PREPARE FOR RECEIVE 

XSPKNM(R5).XSPKNM»1(R5) i REPLICATE LO. BYTE TO HI FOR GTPAKS. C 
SUCCSCR5) i NO SUCCESS YET 

4BIT9.SR5 (NO DATA CHK ERROR YET 

RCVBUF(R5).PKPTR(R5) |T0P OF RCV BUFFER GOES THE 1ST PACKET 
4XSFLG.R4 jFORM 
R5.R4 i ADDRESS 

R4.XSPTR(R5) »0F 1ST XSFLG 

4BIT4.SR5 i PRESET AS DATA PAK 

SR0.4RSCMND jUAS IT COMMAND PAK? 

6t (NO... 
2(R0).CMDSNT(R5) i YES -SAVE COMMAND 



4BIT4.8R5 

4BIT10.8R5 
6* 

2(R0).«RSSR0 
41 

4BIT6.8R5 

UHCHDR 

61 

R0N0CR5) 
4$ 

R0NKR5) 

2(R0),4RSSWR 
6* 

46IT6.SR5 

3CR0) 
21* 

•6IT5.8R5 
221 

4BIT5.8R5 

UHCHDR 

51 

WRTN0CR5) 
6* 

WRTNKR5) 



I ITS CMND PAK 
jRE TRYING? 

a YES-DON' T UPOATE ANY STATS OR CONDITION 
iNO. A READ? 
I NO 

l (FOR HARD/SOFT LOGGING) RD/WR FLAG-0 
(GET DRIVE 

! DRIVE 0 

.DRIVE 1 

t A WRITE? 
»N0 

l YES. RO/WR FLAG-1 
i VERIFY TOO? 
iNO 

i YES-SET VERIFY FLAG 

: (NO) -RESET VERIFY FLAG 

iGET DRIVE NO 

iCARnY-DRl 

t 4 BLKS WRITTEN DRO 

iEXlT 

S 4 BLKS WRITTEN DRV1 
i RETURN 
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5254 
5255 
5256 
5257 
5258 
5259 
5260 
5261 
5262 
5263 
5264 
5265 

5266 007122 
(1) 007122 
(1) 

(1) 

5267 007124 

5268 007130 

5269 007134 

5270 007136 
(1) 007136 
(1) 

(1) 

5271 007140 
(3) 007140 

5272 007142 
(1) 007142 
CI) 

5273 

5274 007144 

5275 007146 

5276 007150 

5277 007154 

5278 007160 

5279 007162 

5280 007166 
(1) 007166 
(1) 

5281 007170 



L4 
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SNDBYT / OUTPUT A BYTE TO UNIT 



SEQ 0050 



010146 



013701 
105775 
100412 

010046 



104422 



003346 
000026 



. SBTTL SNDBYT / OUTPUT A BYTE TO UNIT 
♦ ♦ 

SNOBYT - TEST 'READY' ON INTERFACE. 

IF TIMED OUT, LOG ERROR. 
INPUTS - RO - POINTER TO BUFFER 

- IMPLIED UNIT DATA BLOCK 

- CSNRDY - TIMEOUT CONSTANT 
OUTPUTS - RO IS INCREMENTED. 
ERROR - NOT -READY -TO-SENO TIME OUT 



IF READY . SEND BYTE AND EXIT 



SNDBYT:: PUSM Rl 



4«: 
1«: 



MOV 

TSTB 

BMI 

PwSH 



BREAK 



CSNRDY. Rl 

BXMSRCR5) 

2* 

RO 



l ENTER RO- >BYTE 
MOV Rl.-(SP) 



{GET TIMEOUT CONSTANT FOR NOT READY ERROR 

: READY TO SEND? 

*YES 

j NO. SAVE RO 
MOV RO.-(SP) 



s MONITOR BREAK 



TRAP 









POP 


RO 


i PES TORE 


012600 










MOV CSP)» 


005301 






DEC 


Rl 


{ABORTED? 


001370 






BNE 


11 


{NO 


012704 


000056 




MOV 


0T0SND8.R4 


j YES. SET CODE 


004737 


012654 




CALL 


LOG 


;LOG IT 


000402 






BR 


3* 


:QUIT 


112075 


000030 


2t: 


MOVB 


CR0)».aXMDB(R5) 


sSENO IT 






3»: 


POP 


Rl 


sRESTCRE 


012601 










MOV (SP)» 


000207 






RETURN 




{DONE 



CIBRK 
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5284 










5285 










5286 










5287 










5288 










5289 










5290 










5291 










5292 










5293 










5294 










5295 


007172 


000240 






5296 


007174 


032737 


000006 


003310 


5297 


007202 


001010 






5298 


007204 


012737 


177777 


010362 




007212 


004 75 7 


QQO 7 50 




5300 


007216 


004737 


007450 




5301 


007222 


000404 






5302 


007224 


004737 


005770 




5303 










5304 


007230 


004737 


007240 




5305 


007234 


000207 






5306 










5307 


007236 


000000 







MA 
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GETANS / GETS RESPONSES ROUND ROBIN USING "XON" 

. SBTTL GETANS / GETS RESPONSES ROUNO ROBIN USING "XON' 



SEQ 0051 



GETANS - IF A UNIT IS RETRYING CLEAR HIS RECEIVE BUFFER ( CLRBUF ) AND GET 
HIS RESPONSE (GTPKS1). ELSE. CLEAR ALL BUFFERS (CLRALL) AND 
GET ALL RESPONSES CGTPKS8). 

INPUTS: SYSTAT - SYSTEM STATUS WORD. 



OUTPUTS: SERVST • -1 IF NO RETRIES. 



GETANS: 



1$: 



2»: 



: NOP 
BIT 
BNE 
MOV 
CALL 
CALL 
BR 
CALL 

CALL 
RETURN 



ll UNIT 
«BIT1!BIT2. SYSTAT 
It 

#-1. SERVST 
CLRALL 
GTPKS8 
2) 

CLRBUF 



ELSE ALL 



IF RETRY, 
i RETRY? 

«YES 

, PRESET NO UNITS SERVICED 
i CLEAR ALL INPUT BUFFERS 
l GET ALL REPLYS 
,EXIT 



GTPKS1 



l RETRY -CLEAR 
S R5->UNIT BY 
sGET 1 REPLY 
jDONE 



1 UNIT ONLY 
NXTST 



GETPTR: .WORD 



N4 



GLOBAL AREAS 
CZTUUF.Pll 



5310 
5311 
5312 
5313 
5314 
5315 
5316 
5317 
5318 
5319 
5320 
5321 
5322 
5323 
5324 
5325 
5326 
5327 
5326 
5329 
S330 
5331 
5332 
5333 
5334 
5335 
5336 
5337 
5336 
5339 
5340 
5341 
5342 
5343 
5344 
5345 
5346 
5347 
5348 
5349 
5350 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5358 
5359 
5360 
5361 
5362 
5363 
5364 
5365 
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25 -JAN -84 08:33 PAGE 28 

GTPKSl / GET RETRY RESPONSE -1 UNIT 



007240 
007242 
007246 
007250 
007252 
007256 
007262 

007266 
007272 
007276 
007302 
007306 
007312 
007316 
007322 
007324 
007326 
007332 
007336 
007340 
007344 
007346 
007354 
007360 
007362 
007366 
007370 
007376 

007400 
007402 
007406 
007410 
007414 
007420 
007422 
007426 
007430 

007432 
007434 



000240 
012703 
060503 
010301 
062701 
012700 
004737 

016500 
116502 
032702 
011137 
011337 
004737 
032715 
001050 
005300 
111037 
121037 
001420 
121027 
001006 
012737 
012702 
000407 
121027 
001026 
012737 
005202 

005200 
005337 
001411 
004737 
005765 
001011 
032715 
001006 
000764 

005302 
001403 



. SBTTL GTPKSl / GE T RETRY RESPONSE -1 UNIT 

GTPKSl - SENDS * XON' TO UNIT. GETS FLAG BYTE (IF ANY). CHECKS IF IT IS 
WHAT WAS EXPECTED. IF IT IS. USE EXPECTED BYTE COUNT(XSCNT). 
NOT. CHECK IF PREMATURE - END PACK OR (SINCE MAINTENANCE MODE) 
IF IT'S A PREMATURE DATA PACK. ADJUST COUNT. GET REST OF 
PACKET. AND REPEAT ABOVE UNTIL NO MORE PACKETS. 
INPUTS: (IMPLIED) UNITS DATA BLOCK 
RSNDSZ - END PACKET SIZE 

OUTPUTS: SYSTAT UPPER BYTE - FLAG BY^E RECEIVED 



SEQ 0052 



IF 



000034 



000002 
007446 
007122 

000102 
000033 
177400 
003320 
003316 
010366 
100000 



003311 
003316 

000002 

000016 003320 
000001 

000001 

000204 003320 



003320 

010366 
000074 

100000 



II: 



141: 



2«: 
5$: 



3$: 



NOP 




jR5->THE UNIT 


MOV 


4XSFLG.R3 


I THE OFFSET VALUE OF FLAG 


AOO 


R5.R3 


(FORM THE ABSOLUTE ADDRESS 


MOV 


R3 9 R1 


|R3- >ADDR. OF EXPECTED FLAG 


ADD 


*2. .Rl 


*R1-->ADDR. OF EXPECTED COUHJ 


MOV 


♦EXON.RO 


;R0« ADDRESS 


CALL 


SNDBYT 


t XON THE OEVICE 






TIME CRITICAL 


MOV 


RCVBUF(R5).R0 


!***--> TO THE BUFFER 


MOVB 


XSPKNM*1(R5).R2 


j***GET THE * OF PACKETS TO RECEIVE 


BIT 


♦177400 # R2 


i***SIGN UN -EXTEND 


MOV 


SRI. RCBCNT 


t ***HOW MANY BYTES IT SHOULD BE 


MOV 


8R3.RCFLG 


;*++WHAT THE FIRST BYTE SHOULD BE 


CALL 


GTBYTE 


,+**GET THE ALL IMPORTANT FLAG 


BIT 


*8IT15,8R5 


j TIMEOUT? 


BNE 


4$ 


i YES 


DEC 


RO 


: -> BYTE RECIEVED 


MOVB 


8R0. SYSTAT *1 


i SAVE IT AS FLAG BYTE 


CMPB 


8R0.RCFLG 


;1ST BYTE WHAT WAS EXPECTED? 


nrA 

BEQ 


2$ 


; YES 


CMPB 


8R0.«RSEND 


>N0. WAS IT END PAK? 


BNE 


141 


I NO 


MOV 


•RSNDSZ. RCBCNT 


;YES. USE END SIZE FOR COUNT 


MOV 


♦1.R2 


j AND ASSUME IT'S LAST PACKET: 


BR 


2* 


j CONTINUE RECEIVE 


CMPB 


SR0.«RS0ATA 


l WAS IT DATA? 


BNE 


41 


sNO.CHKANS MAY FIND INIT... 


MOV 


•RSDASZ. RCBCNT 


lYES. SET FOR DATA PAK SIZE 


INC 


R2 


jONE MORE PACK THAN EXPECTED (END PACK) 


INC 


RO 


s RESTORE TO -> NEXT BYTE 


DEC 


RCBCNT 


s THAT'S ONE LESS BYTE TO GO 


BEQ 


31 


;DONE 


CALL 


GTBYTE 


jGET REST OF PACKET 


TST 


DLV(R5) 


: ERROR 


BNE 


41 


s YES -ALL OVER 


BIT 


♦8IT15.SR5 


;0R IF ABORTED 


BNE 


4$ 


l THEN QUIT 


BR 


5* 


t CONTINUE RECEIVE 


DEC 


R2 


<ONE LESS PACKET TO GO 


BEQ 


4$ 


l MORE PACKETS IN TRANSACTION? 



B5 



GLOBAL AREAS 
CZTUUF.PH 

5366 

5567 007456 

5560 007440 

5569 007442 

5570 007444 
5571 

5572 007446 

5575 007447 
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GTPKS1 / GET RETRY RESPONSE! UNIT 



022121 
022525 
000717 
000207 

020 
025 



41: 

EXON: 
EXOTFi 



CMP 
CMP 
BR 

RETURN 

.BYTE 
.BYTE 



(R1)..CR1) 
(R5)..(R5) 
It 



RSXON 

rsxotf 



SEQ 0053 

|TES 

iPOINT TO NEW EXPECTEO COUNT 
I AND FLAG. 
I AND RECEIVE. 
I RE TURN 



C5 



GLOBAL AREAS 
CZTUUF.P11 
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GTPKS6 / GET RESPONSES (NO RETRIES) 



SEQ 0054 



5376 










C W 1 1 

5377 










5378 










5379 










K 9 A A 

5360 










C * A t 

5361 










5362 










5563 










5364 










5365 










5366 










crxc 7 

5387 










Cf AD 

5368 










538** 










5390 










C V At 

5391 










5392 










5393 










C1AJ 

5394 










C VAC 

5395 


AA7JCA 

OO /450 


000240 






5396 


OO / 452 


A^^7*7 

022 f 3 f 


AAAAAO 

OOOOO*? 




5397 


AA7J/A 

007460 


AA« AA/ 

001006 






5396 


AA1J£ ~\ 

007462 


022 r 65 


AAAAAA 

oooooo 


AAAOI A 

OOOclO 


5399 


007470 


/V/\ • AA^ 

001002 






54 OO 


AA74 ^A 

007472 


AAA if 7 

000137 


At A 1 CC 

01016O 




C A A< 

5*01 


a/\7j fx. 

0074 76 


012 73 r 


00335c 


AlAUi 

0103O* 


5402 


W/7504 


At 7 7 AC 

017 705 


AAAX g M. 

000654 




54 O 3 


AA7C 1 A 

007510 


032715 


t AAAAA 

lOOOOO 




5404 


AA7C 1 A 

007514 


AA t 4Ai 

001404 






CA AC 

5405 


0071,16 


AAJ 7« 7 

004737 


At A17X. 

010276 




CiAf 

5405 


aa^c«*^ 

007522 


AAA • 

000137 


At At *>A 

010124 




540 7 


AA7C^£ 

007526 


t AC C 

105765 


AAAAff 

000033 




5*06 


AA7Cf^ 

OO '532 


AAt AAA 

001004 






5409 


AA7E |J 

007534 


AAA 71 7 

004737 


At A^7i 

010276 




C A 1 A 

5*10 


AA7CJA 

007540 


AAA t 17 

000137 


At At **A 

010124 




5#11 


AA7CJJ 

007544 


t AC 

105365 


AAAAY V 

000033 




5*ltf 


AA7CCA 

OOf 550 


At 7C17 

017537 


AAA t A£ 

000106 


AA WW 1 C 

003316 


5*13 


00 7556 


062765 


AAAAA O 

000002 


AAA t AX 

000106 




OOr5©4 


At 7*17 

Ol 753 7 


AAA1 AC 

000106 


AA I1V\ 

003320 


5*15 


OOf 572 


AW717 

022 7 37 


AAAAAO 

000002 


AA 111 A 

003344 


D*10 


aa 7£J\f\ 

OO f ouo 


AAt AAA 

001404 






ca i 7 


OO f 602 


At 0 7AA 

012700 


AAT A AX. 

007446 




D* lO 










C A « o 
5# 19 


AA7£Ar 

00'606 


AAA 717 

004737 


AA7 « "iO 

007122 






AA7£ « ^ 

OOr61c 


At 4LCAA 
016500 


AAA 1 AA 

000104 






aa7< « j: 
OO r OlO 


AAA) 7 * 7 
004 f 37 


010366 






AA7JLDO 
OU 'Wc 


A1071 c 

03£ r 15 


t AAAAA 

lOOOOO 






w ' vcu 


AAt AAA 
WA*^P^ 






5424 


007630 


105065 


000033 




5425 


007634 


000137 


010124 




5426 


007640 


005300 






5427 


007642 


111037 


003311 




5420 


007646 


121037 


003316 




5429 


007652 


001436 






5430 


007654 


105065 


000033 




5431 


007660 


121027 


000002 





. SBTTL GTPKSa / GET RESPONSES (NO RETRIES) 

GTPKS8 - IF IN TEST 9 AND THE UNIT IS NOT M00IFIE0. SKIP THE REST 
OF THE ROUTINE. OTHERWISE i 

SET ALL ABORTED UNITS SERVICED (SERVST: BIT POSITION). UNTIL 
ALL UNITS SERVICEO (SERVST-0). IF NO MORE PACKETS. SET UNIT 
SERVICEO. ELSE, GET A FLAG BYTE FROM UNIT. DECREMENTING THE 
NUMBER OF PACKETS LEFT. CHECK TO SEE IF EXPECTEO FLAG. 
ADJUST COUNT IF NOT. GET REST OF PACKET. IF WAS OATA PACK. 
AND NOT IN TEST 9. SEND "X0FF" TO ENHANCE THROUGHPUT AND GO ON 
TO NEXT UNIT (IF ANY). IF IN TEST 9. DO NOT SEND "XOFFF ** . 
INPUTS: ( IMPLIED )UNITS DATA BLOCK POINTED TO BY R5. NONE PASSEO. 
RSNDSZ • END PACK SIZE 
RSDNSZ - DATA ♦ END SIZE 

OUTPUTS: SYSTAT - UPPER BYTE-1ST BYTE RECEIVED. CURRENT UNIT 



GTPKS8: 


: NOP 




(GET ALL UNITS RESPONSES XOFF If DATA PAK ( THROU 




CMP 


•2.TEST9 


,**••• IS THIS TEST 9 




BNE 


11 


NO 




CMP 


•0.MRSPIR5) 


,••••• IF SO. IS THIS UNIT MODIFIED 




BNE 


It 


,••••• YES, CONTINUE NORMALLY 




JMP 


ENDGP6 


,•**•• ELSE. SKIP ROUTINE 


It: 


MOV 


46LKTBL.GTPTR 


I->IST 


GTAGIN: 


MOV 


8GTPTR.R5 


iGET DATA BLOCK 




BIT 


46IT15.W5 


t ABORTEO? 




BEQ 


2t 


|N0 




CALL 


SETSRV 


lYES-SET* SERVICED' AM) 




JMP 


GTDOUN 


lON TO NEXT UNIT 


2t: 


TSTB 


XSPKt#1«l(R5) 


iNO. ANY PACKETS LEFT? 




BNE 


St 


|VES 




CALL 


SETSRV 


iNO-HE'S DONE 




JMP 


GTDOUN 


tSO ON TO NEXT UNIT 


31: 


DECB 


XSPKNH»1(RS) 


iNOU ITS ONE LESS PACKET 


MOV 


8XSPTR(R5).RCFLG iGET EXPECTEO FLAG 




ADD 


#2.XSPTR(R5) 


i--> COUNT 




MOV 


BXSPTR(RS).RCBCNT |AND EXPECTED COUNT 




CMP 


•2.TEST9 


IF TEST 9 




BEQ 


It 


,••*•• 00 NOT SEND XON 




MOV 


4EX0N.R0 


1 > XON 

••••TIME CRITICAL 




CALL 


SK)6YT 


i«**SEND IT 


11: 


MOV 


PKPTR(R5).R0 


i***->UHERE 1ST BYTE GOES 




CALL 


GTBYTE 


{•••GET IT 




BIT 


4BIT15.8R5 


i ABORTEO? 




BEQ 


4t 


I NO-CONTINUE 




CLRB 


XSPKNH.KR5) 


I YES -NO MORE PACKETS EXPECTEO 




JMP 


GTDOUN 


I ON TO NEXT 


41: 


DEC 


RO 


i ->BYTE JUST RECEIVED 


MOVB 


SRO. SYSTAT. 1 


iSAVE IT 




CMPB 


ORO.RCFLG 


iIS IT UHAT EXPECTED? 




BEQ 


GTOK 


|YES 


UNXPCT: 


CLRB 


XSPKNM.KR5) 


iNO. MUST BE LAST REPLY 




CMPB 


SR0.4RSEND 


iHAYBE AN END PAK? 



D 



5 



GLOBAL AREAS 
CZTUUT.Pli 
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5432 


0076S* 


001004 




5433 


007666 


012737 


000016 


A 9 A 

5434 


007674 


A. A. .A m 

000406 




5435 


007676 


121027 


000001 


5436 


007702 


001110 




5437 


007704 


012737 


000222 


5436 


007712 


005200 




5439 


007714 


005337 


003320 


5440 


007720 


001501 




C a A m 

5441 


007722 


004737 


010366 


5442 


007726 


032715 


100000 


C M A » 

5443 


007732 


001074 




C A ^ A 

5444 


007734 


AAC c 

005765 


AAAAYi 

000074 


C A A C 

5445 


007740 


001765 




5446 


007742 


a AC /v^ c 

105065 


000033 


C Jl J 1 

5447 


AA ^ A C 

007746 


000466 




5446 








5449 


007750 


AAr VVA 

005200 




c a c a 

5450 








c « c « 

5451 








5452 


AA^ c *> 

007752 


022737 


AAAAAA 

000002 


CiCt 

5453 


AA ^ T A 

007760 


AA 1 A A ^ 

001022 




5454 


007762 






CI) 


007762 


A a AA M + 

010046 




CI) 








CI) 








5455 


007764 


A a A^f 

012737 


AAAAA A 

000002 


c a c^ 

5456 








CiC -7 

5457 


007772 


005000 




5456 


AA ^ ^ A 

007774 


AA C V A_A 

005300 




CA C A 

5459 


007776 


001376 




5460 


010000 


005337 


010274 


5461 


010004 


aa a « ^ A 

001372 




5462 








5463 


010006 


105775 


000022 


5464 


A a AA • A 

010012 


001066 












5466 


A« AA m m 

010014 


012700 


010272 




010020 


004737 


007122 




010024 




CI) 


/<\ • AAA * 

010024 


A a Af AA 

012600 




f * > 

CD 
















f O 


010026 


AAC ** ** T 

005337 


003320 


5471 


Al AA V O 

010032 


AA a * a V 

001413 




€LA ~f -% 

54 72 


A a AA ■» a 

OlOO 34 


AAJ ^ V ^ 

004737 


A a A ^ 

010366 




A« /W\* A 

010040 


Al All c 

0327*5 


A AAAAA 

100000 






AAi a a -7 




5475 


010046 


005765 


000074 


5476 


010052 


001737 




5477 


010054 


105065 


000033 


5476 


010060 


000421 




5479 


010062 


122775 


000001 


5460 


010070 


001015 




5461 


010072 


010065 


000104 


5462 









25 JAN 84 08*33 

GTPKS8 /GET 



PAGE 29-1 
RESPf - 



ONSES (NO RETM1ES) 



SEQ 0055 



003320 



003320 



41: 



GTUM: 
51: 



GTOKi 



003344 



010274 



It: 



BNE 


41 


iNO 


MOV 


#RSNDSZ» RCBCNT 


|TES* USE PROPER COUNT 


aa 
BH 


ATI AA 

GTUn 


Afc^K A A T T T 

1 AND GET IT 


CnPB 


aaa An rr\ a t a 


TC TV A A T A 

lIS Ii DATA? 


AiC 

BNE 


A Tf\Ai A 1 

GTDOWN 


iNO. ALL OVER, CMKANS MILL INIT UNIT 


nOv 


•RSDNSZ , RCBCNT 


W A A 1 ■ A A A A< aif A a V A A A rf% #% A u A ■ J># V A A A> > a- • 

|TES, USE COUNT OF DATA * END PAK SURE TO FOLLOW 




AA 

R0 


tajCflP TA ^ V * CF Trtf AA A V 

I WHERE TO S'UFF THE REST 


DEC 


RCBCNT 


iONE DOWN 


BEQ 


GTOOUN 


i NONE TO GO 


CALL 


GTBTTE 


iMORE TO GO 


Aft 

BIT 


jkA TT1C Anc 


. t rye a* it 1 

I T int OUT 7 


BNE 


GTOOUN 


ITES 


TCT 

TbT 


ULVl H5 ) 


, Qllf Al 11 AAAAA O 

IOUT DLV CHHUH7 


OtU 


C A 

51 


, AjA 


Al AA 

CLRo 


X5FKFV1* 1CH5 ) 


- wee 1 act rryc 
|Ttb-LAbT Tint 




GTOOUN 


. r#4 TO NFXT 


INC 


R0 


tNEXT PLACE IN BUFFER 


CMP 


•2.TEST9 


l*** *EV.- IF, NOT TEST 9 


BNE 


7» 


1*** REV. - THEN. NO HRSP HANDSHAKING REQUIRED 


PUSH 


R0 


1*** RIV.- ELSE. TEST HRSP HANDSHAKE. 






MOV R0.-CSP) 



21: 
31: 



MOV 

CLR 
0EC 
BNE 
DEC 
BNE 

TSTB 
BNE 

MOV 

CALL 

POP 



71; 



000104 



4$: 



•2.MRSDLT 

R0 
R0 
31 

MRSDLY 
2t 

8RCSRCR5) 
ERRMOO 

♦M00RSP.R0 

SNDBYT 

R0 



REV. - DELAY FOR WAIT LOOP 
!•** REV.- THIS IS THE BEGINNING DELAY LOOP 
I*** REV. - 

REV. - 
»**• REV.- 
!**• REV.- 

REV. - THIS IS THE END OF DELAY LOOP 



!*•• REV. - IF. 
!*•* REV. - THEN. 
1 *** REV. 



DONE SET. 

IT'S AN ERROR BECAUSE 

THERE WAS NO HRSP HANDSHAKE . 



I*** REV. - ELSE. SEEMS TO BE OK. LETS 



l*a* REV.- 
I*** REV.- 
MOV (SP)».R0 



SEND A CONTINUE' AND 
SEE IF HANDSHAKE WORKS. 



DEC 


RCBCNT 


•MORE BYTES? 


BEQ 


41 


1 NO -ALL DONE 


CALL 


GTBYTE 


1 YES-GET IT 


BIT 


4BIT1S.8R5 


1 TIMEOUT? 


BNE 


GTDOWN 


• YES 


TST 


DLVCR5) 


•ERROR? 


BEQ 


11 


iNO 


CLRB 


XSPKNM*1(R5) 


lLAST TIME 


BR 


GTDOWN 


tEXIT 


CMPB 


•RSOATA , 8PKPTRC R3 ) tWAS DATA? 


BNE 


GTDOWN 


iNO. ALL DONE 


MOV 


R0.PKPTRCR5) 


l START OF NEXT PACK NEXT TIME 



E5 



GLOBAL AREAS 
C?tuuf.pii 
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GTPKS8 / GET RESPONSES (NO RETRIES) 



SEQ 0056 



5483 


010076 


022737 


000002 


003344 




CMP 


♦2.TEST9 


,»*« REV. IF, TEST 9 


5484 


010104 


00x003 








BNE 


201 


I*** REV. - ELSE • 


5485 


010106 


005765 


000210 






TST 


MRSPCR5) 


REV.- ANOIF. MRSP 


5486 


010112 


001004 








BNE 


GTDOMN 


REV.- THEN. NO HANDSHAKE 


5487 
5488 


010114 


012700 


007447 




20$: 


MOV * 


#EXOFF,RO 


iXOFF AND SEND TO 


5489 


010120 


004737 


007122 






CALL 


SNDBYT 


1 ENHANCE THROUGHPUT 


5490 


010124 


062765 


000002 


000106 


GTDOWN: 


ADO 


♦2. .XSPTRCR5) 


iNEXT XSFLG FOR NEXT TRY 


5491 


010132 


023727 


010364 


003370 




CMP 


GTPTR.fLSTDEV 


iDONE ONE CYCLE all UNITS? 


5492 


010140 


103005 








BHIS 


11 


lYES 


5493 


010142 


062737 


000002 


010364 




ADD 


♦2.GTPTR 


tNEXT UNIT 


5494 


010150 


000137 


007504 






JMP 


GTAGIN 


iCONTIMJE RECEIVE 


5495 


010154 


105737 


010362 




lis 


TSTB 


SERVST 


iDONE SERVICING ALL PAKS 


5496 
















iFROM ALL UNITS? 


5497 


010160 


001402 








BEQ 


ENDGP8 


iYES 


5498 


010162 


000137 


007450 






JMP 


GTPKS8 


iNO. KEEP TRYING 


5499 


010166 


000207 






EN0GP8: 


RETURN 




» RE TURN 


5500 


















5501 


010170 


000240 






ERRMOO: 


NOP 




REV. MRSP ERROR 


5502 


010172 










PRINTF 


tMESMRS .UNITNO 




(8) 


010172 


015746 


027412 












(7) 


010176 


012746 


010220 












(6) 


010202 


012746 


000002 












(3) 


010206 


010600 














(4) 


010210 


104417 














(4) 


010212 


062706 


000006 












5503 


010216 


000207 








RETURN 






5504 


















5505 


010220 


047045 


051445 


022471 


MESMRS: 


.ASCI* 


•tfNtfS9tfS2*Ol*S9tfS9*AERR0R IN MRSP PROTOCOL! 


5506 












.EVEN 






5507 


010272 


020 






MOORSP: 


.BYTE 


RSCONT 




5508 




010274 








.EVEN 






5509 


010274 


oooooo 






NRSOLY: 


.WORD 







MOV 

MOV 

MOV 

MOV 

TRAP 

AOO 



UNITNO. 
•MESMRS. 

♦2. (SP) 
SP.RO 
CIPNTF 
06. SP 



♦ 



F5 
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SETSRV / SET UNIT SERVICED 



SEO 0057 



5512 






5513 






5514 






5515 






5516 






5517 






5518 






5519 






5520 






5521 


010276 




(1) 


010276 


010546 


(1) 






CI) 






5522 


010300 




(1) 


010300 


010046 


CI) 






(1) 






5523 


010302 


011505 


5524 


010304 


042705 


5525 


010310 


012700 


5526 


010314 


005705 


5527 


010316 


001404 


5528 


010320 


062700 


5529 


010324 


005305 


5530 


010326 


000772 


5531 


010330 


041037 


5532 


010334 




CI) 


010334 


012600 


(1) 






5533 


010336 




CI) 


010336 


012605 


CI) 






5534 


010340 


000207 


5535 






5536 


010342 


000001 


5537 


010344 


000002 


5538 


010346 


000004 


5539 


010350 


000010 


5540 


010352 


000020 


5541 


010354 


000040 


5542 


010356 


000100 


5543 


010360 


000200 


5544 






5545 


010362 


000000 


5546 


010364 


000000 



. SBTTL SETSRV / SET UNIT SERVICED 

SETSRV - RESET THE BIT IN 'SERVST' CORRESPONDING TO THE UNIT NUMBER. 
INPUTS - SERVST - 'SERVICED' WORD 

- SRS ■ UNIT » CBITS 0. 1. 2) 
OUTPUTS - SERVST MODIFIED 



SETSRV: PUSH 



PUSH 



MOV 

BIC 

MOV 

TST 

BEQ 

ADD 

DEC 

BR 

BIC 

POP 



It: 



2%. 



SRVTBL: 



POP 



RETURN 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



R5 



RO 



8R5.R5 

♦177770. R5 

♦SRVTBL.RO 

RS 

2% 

♦2.R0 

RS 

li 

8R0, SERVST 
RO 



R5 



BITO 
BIT1 
BIT2 
BITS 
BIT4 
BITS 
BIT6 
BIT7 



i SET UNIT SERVICEO 
MOV R5.-CSP) 



MOV 



RO. -CSP) 



I GET STAT WD 
tMASK UNIT • 
i->TOP OF BIT TABLE 
tRIGHT ONE? 
iTES 

I NO. - >NEXT 
ll LESS 
{CONTINUE 
I MOW IT DOWN 



MOV 



(SP)».RO 



MOV <SP)».R5 
» RE TURN 

(BIT POSITION LOOKUP TABLE 



SERVST: .WORD 
GTPTR: .WORO 



G5 
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5551 
5552 
5553 
5554 
5555 
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GTBTTE / GET A BYTE FROM UNIT 



SEQ 0056 



5584 



. SBTTL GTBYTE / GET A BYTE FROM UNIT 



GT8YTE 



INPUTS 

OUTPUTS 
ERROR 



TEST INTERFACE FOR ' READY -TO-RECEIVE' AND INPUT A BYTE. IF 
SO. IF NOT. THE FOLLOWING OCCURS: SEND 'XOFF' TO UNIT IN 
PREPARATION FOR tC CHECK ( * BREAK' TO SUPERVISOR). WAIT 
TO SEE IF A CHARACTER SLOPS OVER DUE TO UART LATENCY. IF 
Of£ DOES THEN MIGHT AS WELL GET IT AND SEND ' XON' TO GET 
THE REST OF THE MESSAGE. OTHERWISE. 'BREAK'. THEN SEND 
' XON' . AND TEST FOR LONG TIMEOUT (A 30 SECOND REWIND). IF SO. 
LOG ERROR. OTHERWISE REPEAT THE ABOVE UNTIL READY OR TIME OUT. 
REMEMBER TO PRESERVE RO SINCE THE BREAK' TRAP CLOBBERS IT. 

- RO POINTS TO INPUT BUFFER 

- IMPLIED UNITS DATA BLOCK 

- CSRCVB TIME OUT MULTIPLIER 

- RO IS INCREMENTED 

- OLV (R5) NON-ZERO ON INTERFACE ERROR. 
• TIME OUT ON RECEIVE 



5572 


010366 


005037 


010612 


GTBYTE: 


: CLR 


GBTMP 


I TIMEOUT REGISTER 


5573 


010372 


013704 


003350 




MOV 


CSRCVB. R4 


(TIMEOUT ERROR CONSTANT 


5574 


010376 


105775 


000022 


1$: 


TSTB 


SRCSR(RS) 


l READY 7 


5575 


010402 


100013 






BPL 


3f 


(NO 


5576 


010404 


017565 


000024 000074 




MOV 


8RCD8(R5).DLV(R5 


) iGET ERROR » BYTE 


5577 


010412 


116520 


000074 




MOVB 


DLV(R5).(R0)» 


[COPY BYTE TO BUFFER 


5578 


010416 


005765 


000074 




TST 


DLV(RS) 


I ERROR? 


5579 


010422 


100472 






BMI 


41 


i YES-EXIT 


5580 


010424 


005065 


000074 




CLR 


DLV(RS) 


[NO -RESET 


5581 


010430 


000467 






BR 


4$ 


(AND EXIT 


5582 


010432 


005337 


010612 


3$: 


DEC 


GBTMP 


tDEC T.O. CONSTANT 


5583 


0104S6 


001357 






BNE 


1$ 


i STILL VALID 



5585 








iCODE 


TO SEE tC 


DURING LONG SEEK 


OR REWIND 


5586 












iHERE GBTMP "0 


5587 


010440 


010037 


010614 




MOV 


R0.GBTMP2 ' 


[RO MUST BE PRESERVED ! 


5588 


010444 


012700 


007447 




MOV 


♦EXOFF.RO 


i QUIET THE DEVICE 


5589 


010450 


004737 


007122 




CALL 


SNDBYT 


:BY SENDING XOFF 


5590 


010454 


105775 


000022 


61: 


TSTB 


8RCSRCR5) 


(CHARACTER SLOP OVER? 


5591 


010460 


100415 






BMI 


5* 


(YES 


5592 


010462 


005337 


010612 




OEC 


GBTMP 


iNO-WAIT A WHILE 


5593 


010466 


105737 


010612 




TSTB 


GBTMP 


(DONE WAITING? 


5594 


010472 


001370 






BNE 


61 


:N0 


5595 


010474 








BREAK 




i YES-NO SLOP OVER 


(3) 


010474 


104422 












5596 


010476 


012700 


007446 




MOV 


4EX0N.R0 


■START DEVICE TALKING 


5597 


010502 


004737 


007122 




CALL 


SNDBYT 


(AGAIN 


5598 


010506 


013700 


010614 




MOV 


GBTMP2.R0 


i RESTORE RO 


5599 


010512 


000426 






BR 


71 


■END KLUGE 


5600 


010514 


013700 


010614 


51: 


MOV 


GBTMP2.R0 


(RESTORE RO 


5601 


010520 


017565 


000024 000074 




MOV 


8RCD8(R5).DLV(R5 


) (GET ERROR » BYTE 


5602 


010526 


116520 


000074 




MOVB 


DLVCR5).CR0)« 


(COPY BYTE TO BUFFER 


5603 


010532 


005765 


000074 




TST 


DLVCR5) 


(ERROR? 



TRAP 



C$BRK 
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5604 


010536 


100403 




5605 


010540 


005065 


000074 


5606 


010544 


000400 




5607 


010546 


010037 


010614 


5608 


010552 


012700 


007446 


5609 


010556 


004737 


007122 


5610 


010562 


013700 


010614 


5611 


010566 


AAA4 « f\ 

0004 10 




5612 


010570 


005037 


010612 


5613 


010574 


005304 




5614 


010576 


001277 




5615 


010600 


012704 


000050 


5616 


010604 


004737 


012654 


5617 


010610 


000207 




5618 


010612 


000000 




5619 


010614 


000000 





H5 

-84 06:33 PAGE 31-1 
GTBYTE / GET A BYTE FROM UNIT 





BMI 


171 




CLR 


DLVCRS ) 




BR 


Iff 


17$: 


MOV 


R0.GBTMP2 




MOV 


ft A UN , HQ 




CALL 


5NDBYT 




MAW 

nuv 


fDTMDO DA 

bo T rWd , HO 




On 


41 


7»: 


CLR 


GBTMP 




DEC 


R4 




BNE 


11 




MOV 


0T0RCV3.R4 




CALL 


LOG 


4t: 


RETURN 




GBTMP: 


• WORD 


0 


GBTMP2: 


.WORD 


0 



SEQ 0059 

. -ES-EXIT 
I NO CLEAR 
lEXlT 

(AGAIN SAVE RO 

(RESTORE TO TALKING STATE 

(BY SENOING *X0N' 

(RESTORE RO 

(DONE 

(TIMEOUT? 

(NO 

(YES 

(LOG ERROR. 
(RETURN 



15 
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5622 
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CHKANS / CHECK DEVICE(S) RESPONSE 



SEQ 0060 



. SBTL CHKANS / CHECK DEVICE(S) RESPONSE 



CHKANS - AS IN "GETANS". IF RETRYING 00 ONLY 1 UNIT ELSE 00 ALL NON 

ABORTEO UNITS. NOTE. IF IN TEST 9 A NO THE UNIT IS NOT 

MODIFIED DO NOT CHECK UNIT . 
INPUTS: IMPLIED SYSTAT BIT1 (RETRYING) 

BLKTBL - TOP OF DATA BLOCK ALLOCATION TABLE 

LSTDEV - ADDR. OF LAST UNIT'S DATA BLOCK 

OUTPUTS: NONE PASSED. 





VlVOlv 








CHKANS* 


• NOP 




iIF RETRY THEN CHECK ONE 


















lEI.SE CHECK ALL 




VlVvCv 


OSP7S7 


000006 


OOS310 




BIT 

DA- ■ 


•BIT 1JBIT2. SYSTAT : RETRYING? 


5638 


010626 


001403 








BEQ 


CHK8 


iNO DO NORMAL 


5639 


010630 


004737 


010726 






CALL 


CHKPKS 


lYES DO SINGLE UNIT 


5640 
















lR5 -> UNIT 


5641 


010634 


000432 








BR 


CHKANR 


j ALL DONE 


5642 


















5643 


010636 


012737 


003352 


010724 


CHK8: 


MOV 


♦BLKTBL. CHKPTR 


I YOU KNOW ... TOP OF TABLE 


5644 


010644 


017705 


000054 




2): 


MOV 


8CHKPTR.R5 


iGET UNIT'S BLOCK ADDRESS 


5645 


010650 


032715 


100000 






BIT 


♦8IT15.8R5 


t ABORTED? 


5646 


010654 


001012 








BNE 


31 


lYES 


5647 


010656 


022737 


000002 


003344 




CMP 


♦2.TEST9 


,***** IS THIS TEST 9 


5648 


010664 


001004 








BNE 


It 


,***** NO -CONTINUE NORMALLY 


5649 


010666 


022765 


000000 


000210 




CMP 


♦O.MRSP(RS) 


,*•*«* IF SO. IS THIS UNIT MOOIFIEO 


5650 


010674 


001402 








BEQ 


3) 


,***** NO SKIP NEXT INSTR 


5651 


010676 


004737 


010726 




It: 


CALL 


CHKPKS 


iNO. DO THIS GUY 


5652 


010702 


023727 


010724 


003370 


3$: 


CMP 


CHKPTR. 4LSTDEV 


: ALL DONE? 


5653 


010710 


103004 








BHIS 


CHKANR 


« YES 


5654 


010712 


062737 


000002 


010724 




ADD 


•2. CHKPTR 


:NO.-->NEXT DEVICE 


5655 


010720 


000751 








BR 


21 


;D0 DA 


5656 
















5657 


010722 


000207 






CHKANR: 


RETURN 






5658 


















5659 


010724 


000000 






CHKPTRs 


.WORD 







J5 
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5662 . SBTTL CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY R5 / 
5663 

5664 (♦♦ 

5665 i CHKPKS - FOR UNIT R5 AND FOR ALL PACKETS. CHECK TO SEE IF PACKET IS DATA OR 

5666 > END PACK. CHECK CHECKSUMS. COMPARE DATA IF DATA PACK. CHECK 

5667 } SUCCESS CODE IF END. IF UNKNOWN PACKET TYPE. CHECK FOR INTERFACE 

5668 i ERROR. IF "CONTINUE" FALL THROUGH. IF "INIT" SET "SEND 

5669 i BREAK" FLAG. CALL "LOG" WITH R4 -ERROR NUMBER IF ERROR. 

5670 t THIS ROUTINE IS ALSO USED TO DETERMINE THE PROTOCOL OF A UNIT. IN 

5671 i THE FIRST PART OF TEST 9 A GET CHARACTERISTICS COMMAND PACKET WAS 

5672 i SENT TO THE TU58. IF THE RESPONSE WAS A OATA PACKET. WHICH IS 

5673 i EXPECTED. THEN THE UNIT IS NOT MODIFIED. AND THE MRSP FLAG IS 

5674 i CLEARED. IF THE RESPONSE IS AN END PACKET. WHICH WOULD BE 

5675 i HANDLED BY THIS ROUTINE AS AN UNKNOWN. THEN THE UNIT IS MODIFIED. 

5676 I AND THE MRSP FLAG IS SET. 

5677 t INPUTS: (IMPLIED) UNITS DATA BLOCK 

5678 i 

5679 : OUTPUTS: ERRORS - DLV ERROR 

5680 i - UNKNOWN FLAG BYTE ERROR 

5681 i - CHECKSUM ERROR 

5682 t - DATA COMPARE ERROR 

5683 i R4 - ERROR NUMBER 

5684 ; SYSTAT UPPER BYTE - 1ST BYTE OF RESPONSE 

5685 j - 



5687 


010726 


000240 




CHKPKS: 


: NOP 




; CHECK WHAT WAS RECIEVED 


5688 


010730 


042715 


000010 




BIC 


48IT3.SR5 


(CLEAR 'BAD FLAG' RETRY BIT 


5689 


010734 


016500 


000102 




MOV 


RCVBUF(R5).R0 


j GET BUFFER ADOR. 


5690 


010740 


116502 


000032 




MOVB 


XSPKNM(R5).R2 


(AND « OF PACKETS EXPECTED 


5691 


010744 


012703 


000034 




MOV 


♦XSFLG.R3 


» THE OFFSET VALUE 


5692 


010750 


060503 






ADD 


R5.R3 


(R3-->THIS UNIT XSFLG AGAIN 


5693 


010752 


010301 






MOV 


R3.R1 


iCOPY TO Rl 


5694 


010754 


062701 


000002 




ADO 


•2.R1 


lRl-->XSBCNT FOR 1ST PACKET 


5695 


010760 


010065 


000104 


1): 


MOV 


R0.PKPTR(R5) 


i POINT TO PACKET 


5696 


010764 


111037 


003311 




MOVB 


SRO. SYSTAT »i 


tSAVE RCV'D BYTE 


5697 


010770 


011137 


003320 




MOV 


SR1.RCBCNT 


iGET COUNT 


5698 


010774 


011337 


003316 




MOV 


8R3.RCFLG 


jAND FLAG 


5699 


011000 


121013 






CMPB 


SR0.8R3 


a 1ST BYTE-EXPECTED? 


5700 


011002 


001057 






BNE 


5» 


lUH OH... 


5701 


011004 


121027 


000020 




CMPB 


SR0.«RSC0NT 


lOK. IS IT 1 BYTE? 


5702 


011010 


001534 






BEQ 


7$ 


j YES... ONTO NEXT PACK 


5703 














(NO. SO > 1 BYTE (NEVER EXPECT INIT!) 


5704 


011012 


013704 


003320 




MOV 


RCBCNT.R4 


(EXPECTED. SO COUNT MUST BE RIGHT 


5705 


011016 


005744 




TST 


(R4) 


(ADJUST FROM RECEIVE COUNT TO COUNT FOR CHECKSUM 


5706 


011020 


004737 


013770 




CALL 


CKCKSM 


(CHECK CHECKSUM 


5707 


011024 


103005 






BCC 


2$ 


(NO CARRY... NO INCORRECT 


5708 


011026 


012704 


000022 




MOV 


•BDCHK.R4 


(ERROR 


5709 


011032 


004737 


012654 




CALL 


LOG 


(LOG IT 


5710 


011036 


000521 






BR 


7» 


(ON TO NEXT PACK 


5711 


011040 


122710 


000002 


2»: 


CMPB 


•RSEND.(RO) 


(END PAK? 


5712 


011044 


001005 






BNE 


3* 


(NO 


5713 


011046 


004737 


011322 




CALL 


CHKEND 


(YES -CHECK 


5714 


011052 


012702 


000001 




MOV 


•1.R2 


(LAST PACKET 


5715 


011056 


000511 






BR 


It 


(AND FALL THROUGH 


5716 


011060 


122710 


000001 


31: 


CMPB 


ftRSDATA.SRO 


(DATA PAK? 


5717 


011064 


001012 






BNE 


4$ 


(NO 



I<5 
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SEQ 0062 



OllUoo 






All A74 














AAAJA5 






014570 


011110 


000474 




011112 


052715 


020010 


011116 


012704 


000010 


011122 


005765 


000074 


011126 


001402 




011130 


012704 


000012 


011134 


004737 


012654 


011140 


000467 





011142 
011146 
011150 
011154 
011160 
011164 
011166 
011172 
011174 
011200 
011202 
011206 
011210 



011214 
011220 



122710 
001007 
052715 
012704 
004737 
000455 
122710 
001013 
012704 
005744 
004737 
103430 
004737 



062700 
000657 



000004 

020010 
000006 
012654 

000001 

000204 

013770 

014570 

000204 





PHP 




i***** IS THIS TF^T 9 




DklC 
DrfC 


lit 


NO-POMTTINUE NORMALLY 






tin \ " J J 


t**++* PL R MR OP FLAG 




RR 


12$ 


SKIP INSTR 


11* : 


CALL 


COMPAR 


l YF' HECK DATA 


121: 


BR 


7$ 


j ALL DONE? 


4$: 


BIS 


•eiT3!BIT13,8R5 


iSET 'BAO FLAG' RETRY FLAGS 




MOV 


•0TL»R4 


»0UT TO LUNCH 




TST 


0LVCR5) 


i AH. BUT OLV ERROR? 




BEQ 


201 


iNO 




MOV 


40VRN.R4 


l YES -USE CORRECT ERROR * 


20$: 


CALL 


LOG 


i TALLY 




BR 


61 


(DONE 



i HERE CHECKS UNEXPECTED RESPONSE 



5$: 



6»: 



CMPB 4RSINIT.8R0 

BNE 6$ 

BIS «6IT3!BIT13,SR5 

MOV 4RCINIT.R4 

CALL LOG 

BR 81 

CMPB #RSDATA.8R0 

BNE 91 

MOV 4RS0ASZ.R4 

TST -(R4) 

CALL CKCKSM 

BCS lOt 

CALL COMPAR 



ADD 4RS0ASZ.ro 
BR It 



iINIT? 
I NO 

I YES -SET RETRY FLAGS 
i WE GOT AN INIT 
l TALLY IT 
i DONE 

i OAT A PAK? 
• NO 

»YES. USE DATA SIZE 
t ADJUST FOR CHKSUM 
(AND CHECK 
i GOOF 

I OK. HOW'S THE OATA? 

tEXPECTEO END. GOT 

i OATA » END. 

i POINT TO END PACK 

; CHECK IT. USE SAME XSFLG 



L5 
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5752 


011222 


122710 
001331 


000002 


9$: 


CMPB 


•RSENO.(RO) 


lENO? 


5753 


011226 




* 


BNE 


4* 


I NO-OUT TO LUNCH 


5754 


011230 


012704 


000016 




MOV 


♦RSSNSZ.R4 


1 YES, TOTAL SIZE MINUS 


5755 


011234 


005744 






TST 


-CR4) 


|TWO (THE CHKSUM) 


5756 


011236 


004737 


013770 




CALL 


CKCKSM 


i CHECK IT 


5757 


011242 


103412 






BCS 


10$ 


a OOPS 


5758 


011244 


022737 


000001 003344 




CMP 


♦1.TEST9 


i***** IS THIS TEST 9 


5759 


011252 


001003 






BNE 


13$ 


l***** NO-CONTINUE NORMALLY 


5760 


011254 


012765 


000001 000210 




MOV 


♦1.MRSPCR5; 


!***** IF SO, SET THE MRSP FLAG 


5761 


011262 


004737 


011322 


13$: 


CALL 


CHKENO 


I OK, NOW TEST SUC. COOE 


5762 














5763 


011266 


000414 






BR 


6$ 


lALL DONE 


5764 
















5765 


011270 


012704 


000022 


10$: 


MOV 


06OCHK ,R4 


I CHECKSUM ERROR 


5766 


011274 


004737 


012654 




CALL 


LOG 














OK 


At 


.CVTT 
I C.A1 1 


5766 
















5769 


011302 


005302 




7$: 


OEC 


R2 


1 ANY PACKETS LEFT TO CHECK? 


5770 


011304 


001405 






BEQ 


6$ 


iNO. ALL DONE 


5771 


011306 


063700 


003320 




AOO 


RCBCNT ,R0 


i YES, POINT TO NEXT PACKET 


5772 


011312 


022121 






CMP 


(R1)*.CR1)* 


jPOINT TO NEXT EXPECTED COUNT 


5773 


011314 


022323 






CMP 


CR3)* # CR3)* 


»ANO EXPECTED FLAG 


5774 


011316 


000620 






BR 


1$ 


j TRY ANOTHER. THEY'RE SMALL 


5775 


011320 


000207 




6$: 


RETURN 




; RE TURN 
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5778 
5779 
5760 
5781 
5782 
5783 
5784 
5785 
5786 
5787 
5768 
5789 
5790 
5791 
5792 
5793 
5794 
5795 
5796 
5797 
5798 
5799 
(1) 
(1) 
(1) 
5600 
(1) 
(1) 
CI) 
5801 
5602 
5603 
5604 
5605 
5606 
5607 
5606 
5609 
58'. 
5611 
5612 
5613 
5814 
5615 
5616 
5617 
5818 
5819 
5820 
5821 
5622 
5623 
(6) 
(7) 
(6) 
(3) 



MACtii 30(1046) 
25-JAN-84 08:09 



011322 
011324 
011324 



011326 
011326 



011330 
011336 
011340 
011346 
011350 
011354 
011360 
011364 
011366 
011372 
011376 
011400 
011404 
011406 
011412 
011416 
011422 
011426 
011432 
011434 
011440 
011444 
011452 
011452 
011456 
011462 
011466 



000240 
010046 

010446 



032737 
001406 
032737 
001454 
042715 
004737 
032715 
001402 
000137 
105765 
001013 
032715 
001002 
000137 
012704 
004737 
000137 
032715 
001002 
000137 
052715 
012765 

016546 
012746 
012746 
010600 



M5 

25 - JAN 84 08:33 PAGE 35 

CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS / SEQ 0064 

. SBTTL CHKEND / CHECK SUCCESS AND DETERMINE RETRr STATUS / 

CHKEND - IF RETRYING i OETERMINE IK DATA ERROR OR BAD FLAG 3YTE ERROR RETRY. 

IF RETRYING BAD FLAG: RESET RETRY FLAG( SINCE OPERATION IS COMPLETE). 
AND CHECK SUCCESS CODE 
IF RETRYING DATA ERROR i CHECK SUCCESS COOE AND IF 0. PRINT RECOVERED. 
SOFT ERROR. END RETRY STATUS. IF NOT 0 AND WAS STILL "DATA 
CHECK" ERROR - DETERMINE WHETHER TO CONTINUE ANOTHER RETRY OR 
LOG "UNRECOVERABLE " ERROR. 

IF NOT RETRYING DATA ERROR i CHECK IF 'DATA CHECK' ERROR SUCCESS COOE 
AND IF SO. START RETRY , ELSE EXIT. 
INPUTS: IMPLIED UNITS DATA BLOCK 

OUTPUTS: RETRY (SYSTAT BIT 1AND 2). (BIT10 8R5) RESET IF RETRYING. 
- OATA COMARE ERROR (BIT6 8R5) CLEAREO. 

REDUCEO/NORMAL GAIN (BIT 7 8R5) ADJUSTED 



000006 003310 

000004 003310 

020000 
012340 
100000 

012044 

000077 

000100 

012044 
000014 
012654 
012044 
001000 

012044 
002000 

000001 000002 

000002 
012224 
000002 















RO 


tRO --> END PAK 








MOV RO.-(SP) 




PUSH 


R4 










MOV R4.-(SP) 


11: 


BIT 


♦BIT 1 SBIT2, SYSTAT j RETRYING? 




BEQ 


NOREE 


» NO -CHECK NORMALLY 




BIT 


6BIT2, SYSTAT 


lIS IT BAD FLAG TYPE? 




BEQ 


CHKREE 


;NO(DATA TYPE) 




BIC 


«6IT13.SR5 


;YES. SO IF END PACK THEN RETRY' S COMPLETE 


NOREE: 


CALL 


CHKSUC 


$ CHECK SUCCESS CODE 




BIT 


•BIT15.8R5 


: ABORTED? 




BEQ 


31 


: NO, CONTINUE 




JMP 


CHKRET 


:YES.EXIT 


31: 


TSTB 


SUCCS»1(R5) 


jNO: HOW'D WE 00? 




BNE 


CHKERR 


j NOT SO GOOD. 




BIT 


«8IT6.aR5 


jOK. HOST FIND DATA PAK ERROR? 




BNE 


2* 


t YES 




JMP 


CHKRET 


:N0 


2»: 


MOV 


♦6DC0M.R4 


jYESi JUST BAD DATA-NO OATACHK EPR 




CALL 


LOG 


;BAD DATA IN PACKET 




JMP 


CHKRET 


jQUIT 


CHKERR: 


BIT 


4BIT9.6R5 


jBAO SUCCESS: TU OATA CHK ERROR? 




BNE 


1* 


;YES 




JMP 


CHKRET 


iNO. ALL OONE. 


11: 


BIS 


♦BIT10.8R5 


i YES-START RETRY 




MOV 


♦l.RETRY(RS) 


jCALL IT 1ST 




PRINTX 


*RTRYN.RETRY(R5) i** PRINT ♦* 



MOV 
MOV 
MOV 
MOV 



RETRYCR5 
3RTRYN. 
*2.-CSP) 
SP.RO 



GLOBAL 


AREAS 


MACY11 


30(1046: 


CZTUUF. 


Pll 25-JAN-84 


08:09 


(4) 




1 AAA 1 S 




(4) 


oi 1 47P 


OAP706 


000006 


5624 


Ol 1 A7f% 


OftOS6P 




5625 


ftl 1 500 


OOA7X7 


012340 


5626 


ftl 1 <%A4 


1 OS76S 


000077 


5627 


ftl 1 510 


ftftl OSA 




5826 


ftl 1 CI o 






(8) 


ftl 1 SIP 


ftl6S46 


000002 


(7) 


ftl 1 SI A 


ftl P746 
VIC * "*o 


012064 


(6) 


ftl 1 5PP 


ftl P7A6 

VIC ■ v 


000002 


(3) 


ftl 1 SP#> 


010600 

V X vvvv 




(4) 


ftl 1 SXft 


104A1S 




(4) 


Oil 


06P706 


000006 


5629 


ftl 1 


105715 




5630 




100411 

X vv^ X X 




5831 


ftl 1 SAP 






(7) 


Ol 1 SAP 


01P746 

VIC • ~ v 


012144 


(6) 


011546 


012746 


000001 


(3) 


ftl 1SSP 


010600 

V X www 




(4) 


Ol 1SSA 


104415 




(4} 


01 1556 


062706 


000004 


5832 


Ol 1 SAP 


000410 

V/W"» XV 




5833 


ftl 1564 






(7) 


Ol 1 564 


01P746 

VIC • ~ v 


012172 


(6) 


011570 


0 IP 746 

VIC • ~w 


000001 


(3) 


Oil 574 


010600 
V iww 




(4) 


Ol 1576 


10A41 S 




(4) 


Ol 1600 


06P706 

VUC » vw 


000004 


5834 


Oil 604 


OXP71S 


000400 


5835 


Ol 1610 

vllOlv 


ftftl OO* 

vvlvvv 




5836 


Ol 161P 


01P704 

vie ' v^ 


000002 


5637 


01 1616 

vX X vXv 


00040P 
vvv^ve 




5836 


Ol 1 6PO 


Ol P70A 

Vic » v^ 


000004 


5639 


0116P4 


004757 


012654 


5640 


01 1630 

VX iWJV 


00S06S 


000002 


5641 


011634 


04P715 

V^C f X -J 


002200 


5642 


011640 


OOOSOl 

Wv JV1 




5643 








5644 


01 164 P 


OOOP40 

vvvC'Vv 




5645 


011644 

V X XV ■ • 


03P715 

VvC ' 1 J 


001000 


5646 


011650 

V X Xv^v 


001015 




5647 


01165P 






(7) 


01165P 


01P746 

v XC r v 


012266 


(6) 


011656 


012746 
vie • ~ v 


000001 


(3) 


011662 


010600 

V XvvvW 




(4) 


011664 


104414 

X v » » X~ 




(4) 


011666 


062706 


000004 


5648 


011672 


005065 


000002 


5649 


011676 


042715 


002200 


5650 


011702 


000460 






011704 


023765 


003332 


5852 


011712 


001425 




5853 


011714 


005265 


000002 


5854 


011720 






(8) 


011720 


016546 


000002 


(7) 


011724 


012 *46 


012224 



N5 



-84 08:33 PAGE 35-1 

CHKEN0 / CHECK SUCCESS ANO DETERMINE RETRY STATUS / 



BR 

CHKREE: CALL 
TSTB 
BNE 

PRINTX 



CHKRET 
CHKSUC 
SUCCS»1CR5) 
UNSUC 

4REC0V.RETRYCR5) 



l ALL DONE 

j CHECK SUCCESS CODE 
» SUCCESSFUL YET? 
j NO. CHECK COUNT 



2«: 



TSTB 
BMI 

PRINTX 



BR 

PRINTX 



(R5) 
2* 

4THRSL0 



31 

4THRSHI 



! DETERMINE THRESHOLD 
I IT'S MODIFIED 
I NORMAL 



ENHANCED 



31: 


BIT 


4BIT8.SR5 


{WRITE OR READ OPERATION? 




BNE 


4$ 


s WRITE 




MOV 


4SFTRD.R4 


;READ 




BR 


51 




4$: 


MOV 


4SFTWR.R4 


;WRITE 


51: 


CALL 


LOG 






CLR 


RETRYCR5) 


; RESTORE TO NORMAL STATE 




BIC 


#BIT10!BIT7.SR5 


[NO RETRY. NORM THRESHOLD 




BR 


CHKRET 


;QUIT 


UNSUC: 


NOP 




j RETRYING; SEE IF HARD Yl 


BIT 


4BIT9.SR5 


,TU DATA CHECK ERROR? 




BNE 


2* 


i YES 




PRINTS 


♦RETERR 


! NO -"OTHER -ERROR" ERROR 



TRAP 
ADO 



MOV 

MOV 

MOV 

MOV 

TRAP 

A00 



MOV 

MOV 

MOV 

TRAP 

A00 



MOV 

MOV 

MOV 

TRAP 

A00 



MOV 

MOV 

MOV 

TRAP 

AOD 



2$: 



CLR RETRYCR5) jNO RETRIES 

BIC 0BIT10!BIT7.fiR5 iNO RETRY. NORM THRESHOLD 

BR CHKRET jEXIT 

CMP MXRTRY , RETRY ( R5 ) S YES. DID WE GRADUATE TO HARD? 

BEQ HRD1 i YES 

INC RETRY(R5) |N0. JUST ANOTHER 

PRINTX 0RTRYN.RETRYCR5) iPRINT OUT 



SEQ 0065 



CIPNTX 
06. SP 



RETRYCR5 
ORECOV. 
02. -(SP) 
SP.RO 
CIPNTX 
06. SP 



OTHRSLO. 
01, (SP) 
SP.RO 
CIPNTX 
04. SP 



OTHRSHI. 
01.- (SP) 
SP.RO 
CIPNTX 
04. SP 



ORE TERR. 
01. -(SP) 
SP.RO 
CIPNTB 
04. SP 



MOV 
MOV 



RETRYCR5 
ORTRYN. - 



B6 





AREAS 


MACU1 






84 08:55 PACE 


55-2 








T7Tl ft W 


Pll 25-JAN-84 


AA « AO 




CMKENO / CHECK SUCCESS 


AMD nFTFOMTMF 


QP TP t QT ATI IQ / 






011750 


012746 


WWv'c 












MAW 

nuv 




011754 


010600 














nuv 


f A \ 


011756 


104415 














TO AO 


( A } 


011740 


062706 


WVWD 












AAA 




0117*4 


052715 


wUcw 






BIT 


MITT BQ*. 
VOX 1 f 1 WJ 








011750 


001405 








BEQ 










011752 


042715 








BIC 


aBTT7 SRS 
vox ■ f $wnj 


■MA -MARK 




-JO-JO 


011756 


000452 








BR 










011760 


052715 


AAA>AA 




It: 


BIS 


MIT 7 flPS 


■REDUCED 




~JU%A 


011764 


000427 








BR 




. AAftf 
1 uunc 




J<a) 1 


011766 


000240 






HR01: 


NOP 




. HFPF HARA FRftm • 






011770 










PRINT X 








f 7 ^ 


011770 


012746 


Ai PDA A 












MAu 

nuv 


f #; ^ 
vo/ 


011774 


012746 


AAAAA1 












HAw 


I J J 


012000 


010600 














HAw 
nuv 


V ^ / 


012002 


104415 














TRAP 




012004 


062706 


AAAAA4 












AAA 




012010 


052715 


aaaaoo 






BIT 


MTTA BPS 


.DA AD 

I 1 






012014 


001005 








8NE 


4$ 


1 BW A 1 t 




SA*S 


012016 


012704 


WW&O 






NOV 


A|-g>AQA R4 


• PC AA 




SAM 


012022 


000402 








BR 


5$ 


•LOG IT 




SA67 


012024 


012704 


AAAA3A 




41: 


NOV 


^WROWR # R4 


1 WRITE 




JwO 


ai ^axa 








3» : 




LOG 


(LOG IT 




SA6Q 


012054 


005065 


aaooap 






CLR 


RETRY(R5) 


iBACK TO NORMAL 




5870 


012040 


042715 


002200 






BIC 


#BIT10!BIT7J 


W5 |N0 RETRT. NOT REDUCED 




5871 






















012044 


042757 


www 


AAXX 1 A 


CHKRET : 


BIC 


#BITl!BIT2.SYSTAT |N0 SYSTEM RETRY NEXT PASS 


5673 


012052 


042715 


000100 






BIC 


#BIT6.flRS 


iNO MORE HOST DATA CHECK 


ERROR 


5874 


012056 










POP 


R4 






r i ^ 
\ i / 

f 1 1 


012056 


012604 












NOV (SP)».R4 




U; 
SA7S 


012060 










POP 


R0 






f 1 } 
f 1 } 


012060 


01260C 












NOV (SP)».R0 




VI/ 

SA76 


012062 


000207 








RETURN 








SA77 




















SA7A 






















012064 


040445 


AA^2D 




REC0V: 


.ASCIZ 


/4AREC0VERE0 


PROM OATA CHECK ERROR RETRT 


# Olid/ 














.EVEN 








SMI 


012144 


040445 


/y« 7 AAA 


AS1 117 


THRSLC: 


.ASCIZ 


/*A M0R«AL THRESHOLDS/ 




SAIL? 












.EVEN 










012172 


040445 


AA4LAAA 


A451 1 7 


TMRSMI: 


.ASCIZ 


/*A modified 


THRESHOLD «N/ 




SAA4 




012224 








.EVEN 








5865 


012224 


040445 


04252? 


05 1124 


RTRYN: 


.ASCIZ 


/•ARE TRY # *0im/ 




5886 












.EVEN 








5887 


012244 


040445 


047125 


042522 


UNREC: 


.ASCIZ 


/«AUNREC0VERABLE«N/ 




5888 












.EVEN 








5889 


012266 


040445 


052117 


042510 


RE TERR : 


.ASCIZ 


/•A0THER ERROR DURING RETRT ; EXIT RETRt#N/ 


5890 












.EVEN 









SE0 0066 

#2.-(SP) 
SP.R0 
C»PNTK 
♦6.SP 



•UNREC. 
•1. (SP) 
SP.R0 
CtPNTx 
♦4.SP 



C6 



GLOBAL AREAS 
CZTUUF.PH 



5693 
5694 
5695 
5696 
5897 
5896 
5899 
5900 
5901 
5902 
5903 
5904 
5905 
5906 
5907 
5906 
5909 
5910 
5911 
5912 
5913 
5914 
5915 
5916 
5917 
5916 
5919 
5920 
5921 
5922 
5923 
5924 
5925 
5926 
5927 
5928 
5929 
5930 
5931 
5932 
5933 
5934 
5935 
5936 
5937 
5936 
5939 
5940 
5941 
5942 
5943 
5944 
5945 
5946 
5947 
5946 



MAC Ul 30(1046) 
25 -JAN 84 08:09 



2S-JAN-64 08:33 PAGE 36 

CMKSUC / INTERPRET SUCCESS CODE / 



SEO 0067 



. SBTTL CMKSUC / INTERPRET SUCCESS CODE / 



012340 
012342 
012350 
012356 

012360 
012366 
012370 
012376 

012400 
012402 
012410 
012412 
012414 
012422 
012424 
012430 

012432 
012440 
012442 
012446 

012450 
012456 
012460 
012464 

012466 
012472 

012474 
012502 
012504 
012510 
012514 

012516 
012524 
012526 
012532 



CMKSUC - COP* SUCCESS COOE (BYTE) 70 SUCCS»i(R5). 

AND IF NOT 0. LOG APPROPRIATE ERROR. 
INPUTS: RO POINTS TO END PACKET 

SR5 • UNIT STATUS UORO 

CMDSNT(RS) - COMMAND BYTE 

OUTPUTS: R4 IS ERROR NUMBER IF ERROR. 
SUCCS(RS) UPDATED. 

BIT9 ORS SET ON DATA CMECK SUCCESS COOE 



INTERPRET SUCCESS 



000240 

016065 000002 
122760 000000 
001535 

122760 000001 
001012 

126527 000100 
001001 



000520 
126527 
001001 
000513 
122760 
001003 
012704 
000506 

122760 
001003 
052715 
000501 

126527 
001006 
105760 
100072 

012704 
000465 

122760 
001005 
012704 
052715 
000454 

122760 
001003 
012704 
000445 



000100 

177737 
000030 

177757 
001000 

000100 
000003 

000044 

177740 000003 

000024 
040000 



000076 
000003 



000003 
000002 

000003 
000003 

000003 

000007 



177767 
000054 



000003 



31: 



41: 



CMKSUC: t NOP 
MOV 
CMPB 
BEQ 

CMPB 

BNE 

CMPB 



221: 
201: 

U: 

21: 



BR 

CMPB 

BNE 

BR 

CMPB 

BNE 

MOV 

BR 

CMPB 



BIS 
BR 

CMPB 
BNE 
TSTB 
BPL 

MOV 
BP 

CMPB 

BNE 

MOV 

BIS 

BR 

CMPB 
BNE 
MOV 
BR 



a"H0).SUCCSCR5) 

•ESOK.S(RO) 

12* 



iRO-->END PACKET 

i GET SUCCESS BYTE 

I COMPLETE SUCCESS -EX IT 



«€STRY.3(R0) tOK BUT RETRIES? 
201 I NO 

CMDSNT(R5).«RSSR0|A READ? 
221 i NO 

101 i NO RETRIES IN MAINTENANCE ! 

CMDSNT(R5).#RSS* |A WRITE? 



20$ 
101 

♦ESNOMO.S(RO) 
II 

•N0M0T.R4 
lit 

«€SCKS.3(R0) 
21 

4BIT9.8R5 
121 



« NO 
iLOG IT 
j NO MOTOR? 
I NO 
lYES- 
iLOG 

I "DATA CMECK" ERROR? 
«N0 

I SET DATA -C«< -ERROR FLAG 
iDONT LOG 



CMDSNT(R5).#RSSSLF iSELF TEST? 
3t iNOPE 
3(R0) i YES. NEG. IF ERROR 

12» I OK 



4SLFER.R4 
IK 

«€SSK.3(R0) 
41 

•SKERR.R4 

•BIT14.8R5 

111 

•£SNCRT.3(R0) 
51 

4NCART.R4 
111 



i YES -ERROR 
i LOG IT 

i SEEK ERROR? 
i NO 

jVES- 

iSET ' DOBRK' FLAG REV E USSING ai 

I LOG 

i NO CART? 
I NO 

lYES- 
iLOG 



D6 

GLOBAL AREAS MACU1 30(1046) 25 JAN 64 06:33 PAGE 36-1 

CZTUUF.P11 25-JAN 64 06:09 CHKSUC / INTERPRET SUCCESS COOE / SEO 0066 

5949 



5950 


012534 


122760 


177720 


000003 


51: 


CMPB 


4ESCM0, 3(R0) 


iNO UNDERSTAND MOST? 


5951 


012542 


001003 








BNE 


61 


|N0 


5952 


012544 


012704 


000040 






MOV 


*CMNDER,R4 


;TES- 


5953 


012550 


000436 








BR 


111 


iLOG 


5954 


















5955 


012552 


122760 


177770 


000003 


61 : 


CMPB 


#ESN0NX,3(R0) 


iNON EXISTENT UNIT? 


5956 


012560 


001003 








BNE 


71 


iNO 


5957 


012562 


012704 


000036 






MOV 


♦N0UNIT,^4 


|TES- 


5956 


012566 


000427 








BR 


111 


iLOG 


5959 
















5960 


012570 


122760 


177765 


000003 


7$: 


CMPB 


♦ESWLOC, 3CR0) 


iWRITE LOCKED? 


5961 


012576 


001003 








BNE 


81 


iNO 


5962 


012600 


012704 


000026 






MOV 


♦WRL0CK.R4 


I YES- 


5963 


012604 


000420 








BR 


111 


iLOG 


5964 


















5965 


012606 


122760 


177776 


000003 


81: 


CMPB 


♦ESPART.3CR0) 


l PARTIAL OP? 


5<*66 


0126J4 


001003 








BNE 


91 


|NU 


5967 


012616 


012704 


000034 






MOV 


#PARTL.R4 


I TES- 




VlCwCC 










no 


lit 
in 


• i fv: 

t LUU 


5969 
















5970 


012624 


122760 


177711 


000003 


91: 


CMPB 


♦ESREC.3CR0) 


l WRONG RECORD? 


5971 


012632 


001003 








BNE 


101 


>K0 


5972 


012634 


012704 


000042 






MOV 


♦RECERR.R4 


lYES- 


5973 


012640 


000402 








BR 


111 


iLOC 


5974 


















5975 


012642 


012704 


000046 




10$: 


MOV 


♦SUC0TL.R4 


iUNOEFINEO 


5976 


012646 


004737 


012654 




Uli 


CALL 


LOG 


iLOG ERROR 


5977 


012652 


000207 






121: 


RETURN 




l RE TURK 



GLOBAL APE AS MAC* 11 30(1046) 25 JAN 
CZTUUF.P11 25-JAN-84 06:09 



59eo 










5961 










5982 










5963 










5964 










5965 










5966 










5967 










5966 










5969 










5990 










5991 










5992 










5993 










5994 










5995 


012654 








(1) 


012654 


010046 






(1) 










(1) 










5996 


012656 








(1) 


012656 


010146 






(1) 










(1) 










5997 


012660 








(1) 


012660 


010346 






(1) 










(1) 










5996 


012662 








(1) 


012662 


010446 






(1) 










(1) 










5999 










6000 


012664 


011537 


002074 




6001 


012670 


042737 


177770 


002074 


6002 


012676 


010465 


000004 




6003 


012702 


012703 


000120 




6004 


012706 


060403 






6005 


012710 


060503 






6006 


012712 


004737 


013660 




6007 


012716 


103001 






6006 


012720 


005203 






6009 


012722 


122713 


000377 




6010 


012726 


001005 






6011 


012730 








(4) 


012730 


104455 






(5) 


012732 


000000 






(5) 


012734 


013554 






(5) 


012736 


013210 






6012 


012740 


000512 






6013 


012742 


105213 






6014 


012744 


111304 






6015 


012746 


016503 


000004 




6016 


012752 


012701 


002230 




6017 


012756 


066501 


000004 




6016 


012762 


042701 


000001 




6019 


012766 


032737 


000004 


016774 



E6 

06*33 PACE 37 

/ TO LOG ERROR IN COPRECT PLACE 

.SBTTL LOG / TO LOG ERROR IN CORRECT PLACE 



SEQ 0069 



LOG - DETERMINE IF ERROR IS FATAL. NON-FATAL OR FATAL AFTER N TRIES 
BY INDEX (ERROR ♦> INTO DEVICE DATA BLOCK. AOD THE DRIVE ♦ TO 
INDICATE UPPER OR LOUEF BYTE AND INCREMENT THAT ERROR UNLESS 
THAT BYTE WOULD OVERFLOW. DETERMINE IF EVL FLAG SET, AND IF SO. 
CHECK THRESHOLD CcVLTHR) AND PRINT APPROPRIATE ERROR MESSAGE 
DESCRIPTION. ABORT THE UNIT IF INDICATED THROUGH DOOR OP COOE. 

INPUTS: R4 - ERROR CXE 

OUTPUTS: ABNDXCR5) - ERROR COOE. 
DLV(RS) • 0 
LtLUN - UNIT NUMBER 



LOG: : PUSH RO 



MOV 



RO.-(SP) 



PUSH Rl 



MOV 



Rl.-(SP) 



2$< 
LOGO: 



LOG OK : 



PUSH 


R3 








MOV RS.-(SP) 


PUSH 


R4 








MOV R4.-CSP) 


MOV 


8R5.LILUN 


sGET UNIT NUMBER 


BIC 


♦177770. LILUN 


j MASK IT OFF 


MOV 


R4,A6NDX(R5) 


iSAVE INDEX IN CASE OF ABORT MESSAGE 


MOV 


♦LG0FST.R3 


I OFFSET TO LOW ORDER B'TE (DRIVEO) 


ADO 


R4.R3 


sFORM INDEX OF PAR AM. TO UPDATE 


ADO 


R5.R3 


j FORM ABSOLUTE ADDR. THIS UNIT 


CALL 


WHCHDR 


tSEE WHICH DRIVE T'WAS 


BCC 


21 


tWAS DRIVE 0 


INC 


R3 


tDRIVE li POINT TO UPPER BYTE 


CMP8 


♦255.. SR3 


I POTENTIAL OVERFLOW POSSIBLE? 


BNE 


LOGOK 


I NO 


ERRDF 


O..OVRFLO.ERROES |YES 




TRAP 



.WORD 
.WORD 
.WORO 



OEROF 
0 

OVRFLO 
ERRDES 



BR 


ABO 


I ABORT UKIT 


INCB 


SR3 


i INCREMENT THE ERROR 


MOVB 


8R3.R4 


t TEMP' LY SAVE IT 


MOV 


A8N0X(R5).R3 


•GET INDEX AGAIN 


MOV 


♦RSNTAB.R1 


(FORM ADRS OF MSG 


ADD 


A8NDX(R5).R1 


j LIKE THIS 


BIC 


♦BIT0.R1 


I INSURE WORD BOUNDARY 


BIT 


♦EVL.FLGLOC 


lEVL SELECTED? 



F6 



GLOBAL AREAS MACU1 30(1046) 
CZTUUF.Pil 25-JAN-64 08:09 



6020 
6021 
6022 
6023 
6024 
6025 
C4) 
(5) 
(5) 
(5) 
6026 
6027 
6026 
6029 
6030 
6031 
(4) 
(5) 
(5) 
(5) 
6032 
6033 
6034 
6035 
6036 
6037 
6038 
(4) 
(5) 
(5) 
(5) 
6039 
6040 
6041 
6042 
6043 
6044 
6045 
6046 
6047 
6048 
6049 
(4) 
(5) 
(5) 
(5) 
6050 
6051 
6052 
6053 
C4) 
(5) 
(5^ 
(5) 
6054 
6055 



012774 
012776 
013002 
013004 
013010 
013014 
013014 
013016 
013020 
013022 
013024 
013026 
013032 
013034 
013040 
013044 
013044 
013046 
013050 
013052 
013054 

013056 
013062 
013064 
013070 
013074 
013074 
013076 
013100 
013102 
013104 

013106 
01311? 
013116 
013120 
013122 

013124 
013130 
015134 
013134 
013136 
013140 
013142 
013144 
013146 
013152 
013156 
013156 
013160 
013162 
013164 



001414 
123V04 
101011 
010337 
011137 

104455 
000000 
013014 
013210 
000460 
120327 
103011 
010337 
011137 

104457 
000000 
013044 
013210 
000450 

120327 
103411 
010337 
011137 

104456 

000000 
013074 
013210 
000430 

042704 
163704 
001413 
103401 
000773 

010337 
011137 

104457 
000000 
013134 
013210 
000414 
010337 
011137 

104456 

000000 
013156 
013210 



002222 

013016 
013020 



25-JAN-64 06:33 PAGE 37-1 
LOG / TO LOG ERROR IN 

BEQ 

CMPB 

BHI 

MOV 

MOV 

DFTL1: ERRDF 



000014 

013046 
013050 



000026 

013076 
013100 



177400 
003322 



013136 
013140 



013160 
013162 



L0G0K2: 



BR 

CMPB 
BHIS 
MOV 
MOV 



CORRECT PLACE 

L0G0K2 

EVLTHR.R4 

L0G0K2 

R3,DFTL1»2 

8R1.0FTL1.4 

0.0FTL1.ERRDES 



ABO 

R3.«B0C0M 
NTSFT 
R3.L0G1»2 
8R1.L0G1.4 



L0G1: ERRSOFT 0. .L0G1.ERR0ES 



BR 

NTSFT: CMPB 
BLO 
MOV 
MOV 



LOGO 

R3.#WRL0CK 
MABEE 

R3.L0G2*?. 
BR1.L0G2-1 



iNO-CONT 

I YES, OVER TMRESM0L07 
l NO 

i YES. LOAD ERROR « 
I AND MESSAGE AOOR 
l ERROR 



lOROP IT 

I ' NEVER FATAL' TYPE? 
I NO 

l YES, ERROR CODE 
« DESCRIPTION 



iEXIT 
lONE TRY? 

I NO. MAYBE A MULTIPLE 
I YES 



L0G2: ERRMRO 0.L0G2. ERROES t PRINT HARD MESSAGE 



013166 011500 





BR 


ABO 


iOROP UNIT 


MABEE: 


BIC 


•177400. R4 


I NEGATE SIGN EXTEND 


It: 


SUB 


FTLNM.R4 


iSEE IF MULTIPLE OF 




BEQ 


HRO 


iFTLNM-YES! 




BLO 


SFT 


»N0 




BR 


11 


iNOT THERE YET 


SFT: 


MOV 


R3.L0G3.2 


i ERROR COOE 




MOV 


8R1.L0G3*4 


I DESCRIPTION 


LOGS: 


ERRSOFT 0. LOGS. ERODES 






BR 


LOGO 


iEXIT 


HRO: 


MOV 


R3.L0G3B»2 


(HARD ERROR COOE 


MOV 


8R1.L0G3B»4 


•DESCRIPTION 


L0G3B: 


ERRHRO 


0 , L0G3B , ERROES 




ABO: 


MOV 


SR5.R0 


iGET UNIT NUMBER 



TRAP 
. WORD 
.WORD 
.WORD 



TRAP 
.WORD 
.WORD 
.WORD 



TRAt> 
.WORD 
.WORO 
.WORD 



TRAP 
.WORD 
.WORD 
.WORD 



TRAP 
.WORD 
.WORD 
.WORD 



SEQ 0070 



CtEROF 
0 

DFTL1 
ERROES 



CIERSOFT 
0 

L0G1 
ERROES 



CtERHRD 

0 

L0G2 
ERROES 



CIERSOFT 
0 

L0G3 
ERROES 



CJERHRD 

0 

L0G3B 
ERROES 



G6 



GLOBAL AREAS 
CZTUUF.PU 



MACU1 30(1046) 
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6056 

6057 
(3) 

6058 
(1) 
(1) 

6059 
(1) 
(1) 

6060 
(1) 
(1) 

6061 
(1) 
(1) 

6062 



013170 042700 177770 
013174 

013174 104451 
013176 

013176 012604 
013200 

013200 012603 
013202 

013202 012601 
013204 

013204 012600 
013206 000207 



25 - JAN 84 08:33 PAGE 37-2 

LOG / TO LOG ERROR IN CORRECT PLACE 

BIC 4177770.ro 
DOOU RO 



LOGO: D 0P 
POP 
POP 
POP 



R4 

R3 
Rl 
RO 



RETURN 



SEQ 0071 



lUN-SIGN EXTENO 

l USE LOGICAL 4 TO DROP 

i RESTORE 

MOV (SP)».R4 

MOV (SP)».R3 

MOV (SP)».R1 

MOV (SP)*.RO 
l RE TURN 



TRAP C*0OOU 



H6 



GLOBAL i 


*RfcAS 


MACtll 


30(1046 


CZTUUF.P11 25-JAN 84 


08:09 


©ww-J 








Owww 








DUD » 








DVA)0 








6rw*Q 










C*\ X2lO 






f XI 


UlOclv 






AO 71 


Ot X21 o 






f 1 1 


Ol X210 

vlJC XV 






f 1 1 








f 1 1 








6072 

WV f C 


013212 






( 1 1 


Ol x>\? 






f 11 








f 11 








6073 

WV ■ w 


013214 






6074 


Ol 3216 

vlvC Xw 


032715 

VWC » 1J 


000020 


6075 

WV « J 


O 13222 


001401 

WW 1~ V 1 




£07£ 

WW fU 


013224 


005202 




AO 7 7 


Ol 3226 
vx weew 






( 101 


O 13226 

vUCCv 


OOS046 




f 101 

V XV # 


013230 

Vl^C WV 


153716 

IWW • IV 


003311 


f 91 


013234 


O 10246 




f 8i 


013236 


005046 

ww^w^ w 




(81 

\ v s 


013240 


156516 


000060 


f 71 


01X244 


O 12746 

VIC ■ ~ v 


013402 


f 61 

V W # 


Ol 32SO 


012746 

VIC » ^w 


000004 


f 31 


Ol 3254 


010600 

vlVvW 




C41 


013256 


104414 

iw^ x^ 




f 41 


Ol 


06270& 

VW4C ' Vw 


000012 


6078 

WW » w 


013264 


016500 

V lOJW 


000064 


6079 

WW » ^ 


013270 


01&S02 

V lOJVC 


000072 


6060 


O 13274 

VXwC * ^ 






fill 

\ X X # 


013274 


005046 




fill 

\ 111 


013276 


156516 

X JUJ Xw 


000077 


f 101 

\ XV S 


013302 


005046 




f 101 

V XV J 


013304 


150216 

1 JVC lv 




f 91 


013306 

VI W WWW 


005046 




( 9) 


013310 


156516 


000100 


f 81 

\ w y 


013314 


010046 

VlVV^v 




f 71 


013316 

W 1 WW xw 


O 12746 

VIC ■ ~ V 


013462 


f 61 


013322 

vi«* wee 


012746 

vie • ~ v 


000005 


(3) 


013326 

V 1 W Jfc w 


010600 

wi www 




(41 


013330 


104414 

IV ■ ■ 1^ 




f 41 


013332 


062706 
wwe » ww 


000014 


6061 


013336 

vi wwww 


005765 

WW J IVJ 


000074 


6062 


013342 


001414 

WWl^ 1^ 




6063 


013344 






(8) 


013344 


016546 


000074 


(7) 


013350 


012746 


013636 


(6) 


013354 


012746 


000002 


(3) 


013360 


010600 




(4) 


013362 


104414 




(41 


013364 


062706 


000006 


6064 


013370 


005065 


000074 


6065 


013374 
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LOG / TO LOG ERROR IN CORRECT PLACE 



I ERRDES - CONTAINS CODE FOR EXTENDED ERROR INFORMATION: DRIVE ♦. 
I BLOCK 4. ETC. 

: - 



BGNMSG ERRDES 
PUSH R0 



i ERROR DESCRIPTION 
MOV RO.-(SP) 



ERRDES: : 



2t: 



PUSH 



CLR 
BIT 
BEQ 
INC 

PRINTS 



R2 



MOV 



R2.-CSP) 



R2 i PRESET TO DATA TYPE 

•6IT4.8R5 i WHAT PACK TYPE? 

21 i DATA 

R2 i COMMAND 

#UNIT,«B.DR(R5)>.R2.«B.SYSTAT»1> 



MOV 
MOV 

PRINTS 



REC(R5).R0 j RECORD NUMBER 

PATTEN(R5).R2 iDATA EXPECTEO 
#RECID.R0.«B.CMDSNT(R5)>.«B.R2>.<B.SUCCS»1(R5)> 



CLR 

BISB 

MOV 

CLR 

BISB 

MOV 

MOV 

MOV 

TRAP 

ADO 



TST 
BEQ 
PRINTS 



DLVCR5) iDLV ERROR? 

31 i NO 

4RECID2.DLV(R5) i YES-PRINT 



3*: 



CLR 
POP 



DLVCR5) 
R2 



I RESET 
iRESTORE 



CLR 

BISB 

CLR 

BISB 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

TRAP 

AGO 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



SEQ 0072 



-(SP) 

SYSTAT»1 

R2. -(SP) 

-(SP) 

DRCR5).( 

♦UNIT.-C 

♦4. CSP) 

SP.R0 

CIPNTB 

♦12. SP 



-(SP) 
SUCCS.K 

(SP) 
R2.(SP) 
-(SP) 
CMDSNT(R 
RO.-(SP) 
4RECI0. 
45. (SP) 
SP.R0 
C»PNTB 
414 . SP 



DLV(R5). 
4RECID2. 
42. (SP) 
SP.R0 
CIPNTB 
46. SP 



16 



GLOBAL 


AREAS 


HACU1 


30( 1046) 


25- JAN 


CZTUUF.P11 25-JAN-84 


08:09 




( l *> 


Ol 3374 


O 1 P60P 






f 1 1 










wvwu 


013376 








C 1 j 




OIP&OO 






f 1 J 










uvy r 


0134 OO 








C 3) 


0134 OO 








(3) 


013400 


104423 






6088 


013402 


040445 


051104 


053111 


€089 










6090 


013462 


040445 


046102 


f\M ICI 1 

041517 


6091 




013554 






6092 


013554 


040503 


023516 


020124 


6093 




013636 






6094 


013636 


040445 


051040 


042103 


6095 
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LOG / TO LOG ERROR IN CORRECT PLACE 



SEQ 0073 



POP 



UNIT: : 
RECIO: : 
0VRFL0: 
RECI02: 



ENDMSG 



.ASCIZ 

.EVEN 

.ASCIZ 

.EVEN 

. ASCIZ 

.EVEN 

.ASCIZ 

.EVEN 



RO 



MOV 

MOV 
»EXIT 



(SP)».R2 
CSP)».R0 



L 10003: 

TRAP 

PAK SENT #01#A FLAG RCVO #03#N/ 



C»MSG 



/KADRIVE* #0l#A 
/KABL0CK4 #04«A COMMAND *02#A EXPCTO *03*A SUCCESS #0S*N/ 
/CAN'T UPDATE ERROR OR STATISTIC: OVERFLOW PENDING/ 
/«A RCDB WAS #06#N/ 



J6 



GLOBAL 
CZ1UUF. 

6096 
6099 
6100 
6101 
6102 
6103 
6104 
6105 
6106 
6107 
6106 
6109 
6110 
6111 
6113 



ARC AS MACU1 30(1046) 
Pll 25-JAN-64 08:09 
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UHCHOR / SEE WHICH DRIVE IS ACTIVE 



S6Q 0074 



. SBTTL UHCHOR / SEE WHICH DRIVE IS f.CTIVE 



l ♦♦ 

I INPUTS: 
! OUTPUTS: 

I - - 



DRCR5) 
CARRY -DRIVE (1 OR 0) 



013660 000241 

013662 105765 000060 

013666 001401 

013670 000261 

013672 000207 



WHCHDR : : CLC 

TSTB 
BEQ 

SEC 



DRCR5) 
2* 



2$: 



RETURN 



; CLEAR CARRY 

iDR 0? 
lYES 
J NO 

{RETURN 



!<6 



GLOBAL AREAS 
CZTUUF.P11 



6115 
6116 
6117 
6116 
6119 
6120 
6121 
6122 
612S 
6124 
6125 
6126 
6127 
(1) 
CI) 
CI) 
6128 
(1) 
CI) 
CI) 
6129 
6130 
6131 
6132 
6133 
6134 
6135 
6136 
6137 
6138 
613 
6140 
6141 
6142 
6143 
6144 
6145 
6146 
6147 
6148 
6149 
6150 
6151 
CI) 
CI) 
6152 
CI) 
CI) 
6153 



MACtll 30(1046) 
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CMKSUM / FORM THE PACKET CHECKSUM 



SEO 0075 



•SBTTL CMKSUM / FORM THE PACKET CHECKSUM 



THE CHECKSUM IS A 16 BIT CHECKSUM WITH END-AROUND CARRY. 



INPUTS: RO -> C POINTS TO) TOP OF PACKET 

Rl • ♦ OF BYTES 
OUTPUTS: RO -> WHERE TO PUT CHECKSUM 
Rl • CHECKSUM 



015674 








CHKSUM: 


: PUSH 


R3 




013674 


010346 












MOV R3.-CSP) 


015676 










PUSH 


R2 




015676 


010246 












MOV R2.-CSP) 


015700 


042737 


000001 


003310 




BIC 


•BITO.SYSTAT 


t "CHECKSUM IS 000" BIT 


015706 


032701 


000001 






BIT 


4BIT0.R1 


t AN 000 # OT BYTES 7 


013712 


001403 








BEQ 


It 


iNO 


013714 


052737 


000001 


003310 




BIS 


♦BITO.SYSTAT 


lYES 


01 5722 


006001 






li« 

A ▼ • 


pop 


Rl 


t/2 FOR WORDS 


013724 


005003 






2$: 


CLR 


R3 


j PREP CHECKSUM WORD 


013726 


062003 






3$: 


ADD 


CR0)».R3 


iFORM SUM 


013730 


005503 








ADC 


R3 


;WITH CARRY 


013732 


005301 








DEC 


Rl 


j MORE WORDS? 


013734 


001374 








BNE 


31 


lYES 


013736 


032737 


000001 


003310 




BIT 


•BITO.SYSTAT 


iWAS IT 000 


013744 


001405 








BEQ 


4* 


iNO 


013746 


112002 








MOVB 


CR0)».R2 


t YES GET NEXT BYTE 


013750 


042702 


177400 






BIC 


•17 7400, R2 


I UN-SIGN EXTEND 


013754 


060203 








ADO 


R2.R3 


tADD IT IN 


013756 


005503 








ADC 


R3 


j AND CARRY JUST IN CASE 


013760 


010301 






41: 


MOV 


R3.R1 


(RETURN IT IN COKRECT PLACE 


013762 










POP 


R2 


j RESTORE 


013762 


012602 












MOV CSP)*.R2 


013764 










POP 


R3 




013764 


012603 












MOV CSP)*.R3 


013766 


000207 








RETURN 




i RE TURN 



L6 



GLOBAL AREAS MACtll 30(1046) 
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CKCKSM / MOOULE TO CHECK THE CMKSUMS 



SEQ 0076 



6156 






6157 






6158 
6119 










6160 






6161 






61*2 






6163 






6164 






616S 






166 






.,167 


013770 




(1) 


013770 


010146 


CI) 






(1) 






6168 


013772 




(1) 


013772 


010046 


(1) 






(1) 






6169 


013774 


010401 


6170 


013776 


004737 


6171 






6172 






6173 






6174 






6175 


014002 


122001 


6176 


014004 


001005 


6177 






6178 


014006 


000301 


6179 






6180 


014010 


122001 


6181 


014012 


001002 


6182 


014014 


000241 


6183 






6184 


014016 


000401 


6185 






6166 


014020 


000261 


6187 






6186 






6189 


014022 




(1) 


014022 


012600 


(1) 






6190 


014024 




(1) 


014024 


012601 


(1) 






6191 


014026 


000207 



, SBTTL CKCKSM / MODULE TO CMECK THE CMKSUMS 



MAKE SURE THE CHECKSUM RECEIVED • THE CHECKSUM CALCULATED. 
INPUTS: R4 ■ THE PACKET BYTE COUNT 

RO ■> THE PACKET TOP 
OUTPUTS: CARRY SET IF CHECKSUM CALC'D DOES NOT EQUAL CHECKSUM SENT 
RO -> THE PACKET TOP 



CKCKSM: : PUSH Rl 



PUSH 



MOV 
CALL 



RO 



R4.R1 
CHKSUM 



MOV 



j SAVE 
MOV 



Rl.-(SP) 



RO.-CSP) 



i COPT BYTE COUNT TO CORRECT 
t REGISTER FOR CHKSUM AND 
l FORM CHECKSUM 



(HERE RO --> XMITTED CHKSUM. Rl-CHKSUM CALC'D 



2»: 
3»: 



CMP8 
BNE 

SWAB 

CMPB 
BNE 

CLC 

BR 

SEC 

POP 
POP 

RETURN 



(R0)»,R1 
2* 

Rl 

(R0)».R1 
21 



3$ 



i LOWER OROER CHECK 
j WRONG 

I OK -PREP FOR 

I HIGH ORDER CHECK 
I WRONG 

; OK -CLEAR SAILING 
jEXIT 

I LET ERROR BE KNOWN 



RO 



Rl 



MOV 



CSP)».RO 



MOV (SP)».R1 
i RETURN 



GLOBAL AREAS 
CZTUUF.PH 



6194 
6195 
6196 
6197 
6196 
6199 
6200 
6201 
6202 
6203 
6204 
6205 
6206 
6207 
6206 
6209 
6210 
6211 
6212 
6213 
6214 
6215 
6216 
6217 
6216 
6219 
6220 
6221 
6222 
(3) 
6223 
6224 
6225 
6226 
6227 
6226 
6229 
6230 
6231 
6232 
6233 
6234 
6235 
6236 
6237 
(3) 
(3) 
623S 
C7) 
C6) 
(5) 
C4) 
(3) 
(2) 
6239 
6240 



MACY11 30(1046) 
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014030 
014034 
014040 
014046 
014054 
014060 
014064 
014064 

014066 
014072 
014074 
014100 
014102 
014106 
014112 
014114 
014122 
014126 
014130 
014132 
014136 
014142 
014142 
014146 
014150 
014150 
014154 
014160 
014164 
014170 
014172 
014176 
014204 



M6 
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008RK / MOOULE TO INIT TU58 AND TEST INTERRUPTS 

. S8TTL OOBRK / MOOULE TO INIT TU58 AND TEST INTERRUPTS 



DOBRK - SEND RADIAL SERIAL "BREAK" TO DEVICE: 

- SET "BREAK" ON INTERFACE. 

- SEND 6. NULLS 

• CLEAR "BREAK" ON INTERFACE 

- SET VECTORS FOR RCV AND XMIT 

- SEND 2 BYTES OF "INIT" 

- RECEIVE "CONTINUE" 

- IF RECEIVE GARBAGE OR TIMEOUT - ERROR 

- CLEAR INTERRUPTS AND VECTORS 
INPUTS: SR5 BIT 14 WAS SET - (SEND BREAK) 
OUTPUTS: 8R5 BIT14 CLEAR IF SUCCESSFUL INIT. 

SYSTATtl - RECEIVED BYTE 
ERRORS R4 - ERROR CODE: 

- SEND NOT READY TIMEOUT (TOSNDB) 
• NO RESPONSE 

- DLV ERROR 

- CAN'T INIT 



SEQ CO 7 7 



105037 
005037 
052775 
012765 
052715 
012704 

104422 

105775 
100410 
005337 
001371 
012704 
004737 
000535 
113775 
005037 
005304 
001355 
005375 
017500 

012700 
104441 

012746 
012746 
016546 
012746 
104437 
062706 
062765 



014563 
014564 

000001 000026 
000001 000100 
000020 
000010 



000026 

014564 

000056 
C 12654 

014560 000030 
014564 



000026 
000024 



POBRK: 



II: 



41: 



000000 



000340 
014470 
000204 
000003 



CLRB 

CLR 

TIS 

MOV 

BIS 

MOV 

BREAK 



TSTB 

BMI 

DEC 

BNE 

MOV 

CALL 

BR 

NOVB 

CLR 

OEC 

BNE 

DEC 

MOV 

SETPRI 



INITWD»1 (CLEAR BYTE RECEIVE AODR 

BRKTO (CLEAR TIME OUT CONSTANT 

#BIT0.8XMSR(R5) (SET 'BREAK' 
#RSSNIT,CMDSNT(R5) (SAY UE SENT 'INIT' 
•BIT4.SR5 (PAK SENT TYPE "COMMAND, SORT 

♦B..R4 (BREAK-IT' S-BACK C0UNT-8 

( SUPERVISOR TAKE FIVE 



OF 



SXMSR(RS) 
4t 

BRKTO 
II 

♦TOSNDB. R4 

LOG 

31 

BRKUD , 8XMDB( R5 ) 

BRKTO 

R4 

II 

8XMSR(R5) 
8RCDB(R5).R0 
•PR 100 



(FOR *C CHECK. ETC. 

(READY? 

(YES 

(NO. TIME OUT? 
(NO 

(YES. SET ERROR CODE 

(LOG IT 

(EXIT 

(SEND NULL 
(RESET TIME OUT 
(MORE NULLS TO SEND? 
(YES 

(NO, CLEAR 'BREAK' 

(HEAVE 'GARBAGE' 1ST BYTE 

(SET TO INTERRUPT FO SURE 



TRAP 



CIBRK 



SETVEC TUVECT(R5),4RCVINT.«PRI07 ,SET VECTO INFO 



000010 

000004 000204 



ADD *4.TUVECT(R5) (AND INC TO SND VECTOR 
SETVEC TUVECT(R5).#SNDINT.#PRI07;AND SET IT 



MOV 
TRAP 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



«PRIOO.R 
C*SPRI 

•PRI07.- 

•RCVINT. 

TUVECKR 

*3.-(SP) 

CSSVEC 

*10.SP 



N6 



GLOBAL 


AREAS 


WACY11 


30( 1046 ' 


CZTUUF. 


Pll 25-JAN-84 


08:09 


(7) 




VIC ■ ~ v 


000340 


(6) 


Ol API ft 


012746 


014454 


(5) 


014214 

v A~C A^ 


O 16546 

V Av^^v 


000204 


(4) 


014220 

W A~C C V 


012746 

VAC • ~ V 


000003 


(3) 


014224 


104437 




(2) 


014226 


062706 


000010 


6241 


014232 

VA~C vC 


162765 


000004 


6242 


014240 


005037 


014564 


6243 


C 14244 


012704 

VAC » 


014562 


6244 


014250 


C 10437 


014566 


6245 


014254 


052775 


000100 


6246 


014262 


004737 


014524 


6247 


014266 


005715 




6248 


014270 


100446 




6249 








6250 


014272 


005037 


014564 


6251 


014276 


012704 


014562 


6252 


014302 


010437 


014566 


6253 


014306 


052775 


000100 


6254 


014314 


004737 


014524 


6255 


014320 


005715 




6256 


014322 

V A~ VCC 


100431 




6257 








6256 


014324 

V A~ VC~ 


012704 


014563 


6259 


014330 


010437 


014566 


6260 


014334 


052775 


000100 


6261 


014342 

V A~ * k 


004737 


014524 


6262 


014346 

WA~ V^ V 


005715 




6263 


014350 


100416 

A VV^ A V 




6264 








6265 


014352 


123727 


014563 


6266 


014360 


001003 

W A Wv 




6267 








6266 


014362 


042715 

V^C 1 A^ 


040000 


6269 


014366 

V A^ VW 


000407 

wvv^ v » 




6270 








6271 


014370 


113737 


014563 


6272 


014376 


012704 

VAC » » 


000032 


6273 


014402 


004737 


012654 


6274 








6275 








6276 


014406 


042775 


000100 


6277 


014414 


042775 


000100 


6278 


014422 






(3) 


014422 


016500 


000204 


(3) 


014426 


104436 






014430 


062765 




6280 


014436 






(3) 


014436 


016500 


000204 


(3) 


014442 


104436 




6281 


014444 


162765 


000004 


6282 


014452 


000207 
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DOBRK / MODULE TO INIT TU58 AN0 TEST INTERRUPTS 



000204 



000026 



000026 



000022 



000020 



003311 



000026 
000022 



000204 
000204 



2$: 



3$: 



SUB 

CLR 

MOV 

MOV 

BIS 

CALL 

TST 

BMI 

CLR 

MOV 

MOV 

BIS 

CALL 

TST 

BMI 

MOV 

MOV 

BIS 

CALL 

TST 

BMI 

CMPB 
BNE 

BIC 
BR 

M0VB 

MOV 

CALL 



BIC 
BIC 

CLRVEC 



ADO 

CLRVEC 



SUB 

RETURN 



♦4.TUVECTCR5) 

BRKT0 

♦INIT WD. R4 

R4.BRKPTR 

♦BIT6.8XMSRCR5) 

WAIT 

8R5 

3$ 

BRKT0 
♦INITWD.R4 
R4.BRKPTR 



tRESET VECTOR ADDR. 

I RESET TIME OUT 

I USE ADDR. FOR SNDBYT 

I AND SAVE FOR "WAIT " 

I ENABLE INTER. 

t AND ENTER LOOP 

I ABORTED FROM TIME OUT? 

I YES-EXIT 

I RESET TIME OUT 
i SEND SECOND INIT 
I SAVE POINTER AGAIN 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



SEQ 0078 

•PRI07. 
•SNDINT . 
TUVECTCR 
43. -CSP) 
C»SVEC 
•10. SP 



♦BIT6.8XMSRCR5) |AND THEN ENABLE INT 



WAIT 
SR5 
3$ 

♦INITWD»1.R4 

R4.BRKPTR 

4BIT6.SRCSRCR5) 

WAIT 

SR5 

3$ 



lANO WAIT 
i IF ABORTED 
I THEN EXIT 

I WHERE RESPONSE WILL GO (ADDRESS) 

lANO FOR 'WAIT' 

tENABLE RECIEVE INT. 

I GET ANSWER 

i ABORTED? 

lYES. 



INITWD»1.«RSC0NT .NO. IS IT 'CONTINUE'? 
2$ i NOPE -ERROR 

♦8IT14.8R5 {SUCCESSFUL. CLEAR DOBREAK FLAG 

3* ;EXIT 

INITW0»1.SYSTAT»1 {SAVE BUM RESPONSE 

•CNINIT.R4 s CAN'T INIT CODE 

LOG i LOG IT 

I SCHEDULER WILL TRY AGAIN IF NOT ABORTED 

•BIT6.8XMSRCR5) i CLEAR INTERRUPTS 
4BIT6.8RCSRCR5) ; AND FOR RECIEVE 
TUVECTCR5) i RELEASE RECIEVE VECT. 



44.TUVECTCR5) 
TUVECTCR5) 



♦4.TUVECTCR5) 



; AND GET SENO ADDR. 
j AND RELEASE IT 



l RESTORE POINTER 
; RE TURN 



MOV 
TRAP 



MOV 
TRAP 



TUVECTCR 
C$CVEC 



TUVECTCR 
CSCVEC 



B7 



GLOBAL AREAS 
CZTUUT.Pil 



HACUt 30(1046) 
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INTERRUPT SERVICE ROUTINES AND TIHER 



SEQ 0079 



6265 








6266 








6287 


014454 






(3) 


014454 






6200 








6209 


^ a A iff A 

014454 


AJ -5 f -»C. 

042775 


AAAt AA 

OOOIQQ 


629Q 


Q14462 


t t 

1124 75 


AAAAf A 


6291 


U14466 






(5) 


014466 






(2) 


014466 


AAAAA^ 

000002 




6292 








6293 








£\ VVJ 

6294 








6295 


Q144 JQ 






13/ 


f\+ MM 1f\ 

U144 f%J 






6296 








629r 


f\* MM ~tf\ 

Q144 f Q 


\J4< r r5 


AAAt AA 


6290 


At m\m\ T*. 

Q144 f6 


At ?cxc 
Ol f 565 




6299 


Q145U4 


1 1 xcoi 
11652* 


AAAA71 
UVW f4 


^ yaa 
63QO 


At iCl A 

Q1451Q 


AA£7<C 

OU5f 65 


AAAA?A 


6301 




t AAA AO 




6302 


014516 


005065 


AAAA7J 

WW'* 


6303 


O 14 522 






63U4 


U 14522 






v 3 ) 


014522 






12 J 


At iK^O 

014522 


AAAAAO 




63U5 








6306 








630 A 








63QO 


014524 


000240 












631U 


At itV 

014526 


020437 


At m\ 

014566 


6311 


O 1*5 32 


AAt At t 

001011 




6312 


At itti 
014534 






13/ 


014534 


104422 




*Xt X 


At IClZ 

014536 






/1\ 
I O ) 


U14536 


1044 22 






At 1CJA 


AACffffl 

QU5<3<3r 


At ICXi 

014564 






AAt m\A^t 

Ovl36r 




6116 




ftl P7AA 
vie ' V* 




6517 


014552 


004757 


012654 


6516 


014556 


000207 




6319 








6520 


014560 


000000 




6521 


014562 


004 




6522 


014565 


000 




6525 


014564 


000000 




6524 


014566 


000000 





. S8TTL INTERRUPT SERVICE ROUTINES AND TIMER 



BGNSRV SNDINT 



SNDHND: BIC 

nova 

ENDSRV 



BGNSRV RCVINT 



RCVHND: BIC 
NOV 
NOVB 
TST 
BMI 
CLR 

lOt: 
ENDSRV 



WAIT: NOP 

CMP 
BNE 
BREAK 

BREAK 

DEC 



It: 



MOV 

CALL 

RETURN 



BRKU0: .U0R0 
INI TWO: .BYTE 
.B*TE 
BRKTO: .U0R0 
BRKPTR: .U0RD 



I "SEND" INTERRUPT SERVICE: 

SNDINT i 



•6IT6.8XMSRCR5) i DISABLE INTERRUPT 
(R4)..BXMDB(R5) i OUTPUT BTTE 



L10004: 



RTI 



I'RCV" INTERRUPT SERVICE: 

RCVINT : : 



•6IT6.8RCSRCR5) i DISABLE INTS 
«RCD8(R5).0LV(R5) tSAVE WORD 

DLV(R5).(R4)» iBVTE TO BUFFER 
i ERROR? 

iTES 

I NO CLEAR ERROR 



DLV(R5) 
lOt 

DLV(R5) 



L10005: 



RTI 



R4. BRKPTR 
It 



BRKTO 
WAIT 

•T0RCVB.R4 

LOG 



0 

RSINIT 
0 
0 
0 



(WAIT LOOP FOR 

i INTERRUPT SERVICING 

l IF -.THEN NO INTERRUPT 

j GOT ONE! 

i SUPERVISOR BREAK 

I KILL SOME TIME 

i TIME OUT? 

I NO... COM. 

sTES LOAD ERROR ♦ 

iLOG IT 

{RETURN 

I NULL 

lINIT COMMAND 

iRSCONT IS EXPECTED MERE 

I TIME OUT 

I POINTER TO INI TWO 



TRAP 
TRAP 



CtBRK 
CtBRK 



GLOBAL AREAS 

C7TUU .PU 25 JAN 64 06:09 



MACUl 30(1046) 25 JAN g4^ 



b327 








6326 








632* 








6330 








6331 








6332 








6333 








6334 








6335 








6336 








6337 








6336 








6339 








6340 








6341 


014570 






CI) 


014570 


010046 




(1) 








(1) 








6342 


014572 






(1) 


014572 


010446 




(1) 








(1) 








6343 


014574 






(1) 


014574 


010146 




(1) 








(1) 








A\ * A M 

6344 


014576 


005037 


014746 


6345 


014602 


016504 


000104 


6346 


014606 


005737 


002216 


6347 


014612 


001451 




6346 


014614 


005204 




6349 


014616 


111401 




6350 


014620 


042701 


177400 


6351 








6352 


014624 


005204 




6353 


014626 


126524 


000072 


6354 


014632 


001402 




6355 


014634 


005237 


014746 


6356 


014640 


005301 




6357 


014642 


001371 




6356 


014644 


005737 


014746 


6359 


014650 


001432 




6360 


014652 


011537 


002074 


6361 


014656 


042737 


177770 


6362 


014664 






(4) 


014664 


104457 




C5i 


014666 


000000 




\ D ) 


f\ « AgL 7A 

Ul#6 fO 


0025*2 




(5) 


014672 


013210 




6363 


014674 






(6) 


014674 


013746 


014746 


(7) 


014700 


012746 


014750 


(6) 


014704 


012746 


000002 


(3) 


014710 


010600 




(4) 


014712 


104414 




C4) 


014714 


062706 


000006 



C7 

/Sa^cSmPARISON MODULE 

. S6TTL COMPAR/DATA COMPARISON MODULE 

C0MPAR - IF "COMPARE _D*T A " SELECTED, COMPARE EACH DATA BTTE OF PACKET 
TO PATTENCR$>. SAVE NUMBER OF BTTES NOT CORRECT. If NOT 
0. PRINT SOFT ERROR AND TOTAL # WRONG BtTES. SET "BAO.OATA _ 
IN.PACKET- BIT (BIT6 8R5) FOR HIGHER LEVEL MODULES. 
INPUTS: - (CMPDAT) FLAG TO NOT COMPARE (-1) 

• PKPTR(RS) POINTS TO DATA PACK. 
OUTPUTS: BIT6 8R5 (BAD DATA FLAG) ADJUSTED. 
LILUN - UNIT NUMBER 
PRNSIZ - SIZE OF PACKET 



SEQ 0060 



COMPAR:: PUSH RO 



PUSH 



PUSH 



R4 



Rl 



iCOMPARE DATA IS DATA PACKET 
MOV RO.-CSP) 



I TO PATTERN WRITTEN 
MOV R4.-(SP) 



lUSING BYTE COUNT IN PACKET 
MOV Rl.-(SP) 



111 
21: 



CLR 


BOBVTS 


•CLEAR TOTAL WRONG 


MOV 


PKPTR(RS).R4 


iGET TOP OF PACKET 


TST 


CMPDAT 


l COMPARE SELECTED? 


BEQ 


41 


I NO-EXIT 


INC 


R4 


lYES. LOCATE COUNT 


MOVB 


0)4. Rl 


•GET IT 


BIC 


♦177400. Rl 


iSIGN-UNEXTENO 




jMUST TEST BYTE -WISE... 


INC 


R4 


i-->FIRST OATA BYTE 


CMPB 


PATTEN(R5).<R4). 


. j OATA -WHAT WAS EXPECTED? 


BEQ 


21 


lYES 


INC 


BOBVTS 


iNO. INCREMENT TOTAL WRONG 


DEC 


Rl 


iMORC LEFT? 


BNE 


11 


lYES 


TST 


BOBVTS 


I ANY WRONG? 


BEQ 


4* 


• NO 


MOV 


BRS.LILUN 


iGET UNIT NUMBER 


BIC 


#177770. LILUN 
O..MSBDA.ERROES 


iMASK IT OFF 


ERRSOFT 


I YES -PRINT BAD DATA IN P 



PRINTS •OESC.BOBYTS 



' ERROR 
TRAP 
.WORD 
.WORO 
.WORD 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



CIERSOFT 
0 

MSBDA 
ERROES 

B06TTS. 

40ESC. C 

•2.-(SP^ 

SP.RO 

C»PNTB 

♦6.SP 



GLOBAL AREAS 
C2TUUF.PH 



HACtU 50(1046) 
25 JAN 84 06:09 



0/ 

25 JAN 64 06:33 PAGE 44 1 

COMPAR/OATA COMPARISON MODULE 



6364 
6365 
6366 
6367 
(1) 
(1) 
6366 
(1) 
(1) 
6369 
(1) 
CI) 
6370 
6371 
6372 
6373 
6374 
6375 



014720 052715 000100 

014724 012737 000204 003340 

014732 004737 015004 
014736 

014736 012601 
014740 

014740 012604 
014742 

014742 012600 



014744 000207 
014746 000000 

014750 040445 047524 040524 



4t: 



seo ooe, 



BIS 
MOV 
CALL 
POP 



POP 
POP 

RETURN 



♦6IT6.BR5 
♦132. .PRNSIZ 
PRNPAK 
Rl 



R4 



•LET EM KNOW UPSTAIRS-BAD DATA FLAG 
i SIZE IS ONE DATA PACK 
l AND PRINT THE PACKET 
i RESTORE 

MOV (SP)..R1 



RO 



MOV 



MOV 



(SP)».R4 



(SP)».RO 



BOBTTS* WORD 

OESC: ' iASCIZ /tfATOTAL BAD BYTES- «03«A.tfN/ 
.EVEN 



E7 



GLOBAL AREAS 
CZTUUF.Pll 



MACUi 30(1046^ 
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PRNP AK /MODULE TO PRINT DATA PACKET 



SEQ 0062 



6378 








6379 








6360 








6381 








6382 








6383 








6384 








638S 








6386 








6387 


015004 


000240 




6388 








6369 








6390 


015006 






(1) 


015006 


010046 




(1) 








(1) 








6391 


015010 






(1) 


015010 


010446 




(1) 








(1) 








6392 


015012 


105737 


002214 


6393 


015016 


001451 




6394 


015020 


016504 


000104 


6395 


015024 


012737 


000020 


6396 


015032 


112437 


015152 


6397 


015036 






(8) 


015036 


005046 




(8) 


015040 


153716 


015152 


(71 


015044 


012746 


015154 


(6) 


015050 


012746 


000002 


(3) 


015054 


010600 




(4) 


015056 


104417 




(4) 


015060 


062706 


000006 


6398 


015064 


005337 


003340 


6399 


015070 


001414 




6400 


015072 


005337 


015150 


6401 


015076 


001355 




6402 


015100 






(7) 


015100 


012746 


015164 


(6) 


015104 


012746 


000001 


(3) 


015110 


010600 




(4) 


015112 


104417 




(4) 


015114 


062706 


000004 


6403 


015120 


000741 




6404 


015122 






(7) 


015122 


012746 


015164 


(6) 


015126 


012746 


000001 


(3) 


015132 


010600 




(4) 


015134 


104417 




(4) 


015136 


062706 


000004 


6405 


015142 






(1) 


015142 


012604 




(1) 








6406 


015144 






(1) 


015144 


012600 




(I) 









. SBTTL PRNP AK /MODULE TO PRINT DATA PACKET 

PRNPAK - IF PRINT .DATA.PACK.ON.ERROR SELECTED: PRINT EACH BYTE Of PACKET 

TO BY PKPTHCR5). 
INPUTS: PRNSIZ - ♦ OF BYTES IN PACKET. 
OUTPUTS: NONE 



PRNPAK : : NOP 



PUSH 



1$: 
21: 



PUSH 



TSTB 

BEQ 

MOV 

MOV 

MOVB 

PRINTF 



RO 



R4 



iPRINTS 1 PACKET 
lPKPTR(R5)->T0P OF PACKET 
I PRNSIZ (PASSED) -BYTE COUNT 



MOV 



MOV 



RO.-(SP) 



R4.-(SP) 



PRBUF 
41 

PKPTR(R5).R4 
♦16..LNCNT 
(R4)».PRDAT 



I PR INT PACKET SELECTED? 
J NO 

I YES -GET TOP OF PACK 
I 16 BYTES PER LINE 
i AVOID SIGN EXTEND 



«PRFOPM.<B.PRDAT> i PRINT BYTE 



DEC 
BEQ 
DEC 
BNE 



PRNSIZ 
31 

LNCNT 
21 



31: 



41: 



PRINTF 4CARLF 



BR II 
PRINTF «CARLF 



POP R4 
POP RO 



I ONE LESS 
I NO MORE 
(NEW LINE? 
iNOT VET 
iVES 



l NEXT LINE 
iFINISM UP 



CLR 

BISB 

MOV 

MOV 

MOV 

TRAP 

AOO 



MOV 

MOV 

MOV 

TRAP 

AOO 



MOV 

MOV 

MOV 

TRAP 

AOO 



(SP) 
PRDAT.CS 
#PRFORH» 
#2.-(SP) 
SP.RO 
CtPNTF 

06. SP 



•CARLF. - 

#1.-(SP) 

SP.RO 

C»PNTF 

♦4.SP 



♦CARLF. - 

♦l.-(SP) 

SP.RO 

CJPNTF 

•4.SP 



MOV (SP)».R4 



MOV 



(SP)».RO 



F7 



GLOBAL AREAS 
CZTUUT.Pll 



MACU1 30(1046) 
25-JAN-84 08:09 
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PRNPAK/MOOULE TO PRINT OAT A PACKET 



6407 015146 000207 
6408 

6409 015150 000000 

6410 015152 000000 

6411 015154 047445 022463 020101 

6412 015164 

6413 015164 047045 000 

6414 015170 
6415 

6416 015170 
6417 



RETURN 

LNCNT: .UORD 
PRDAT: .WORD 
PRFORM: .ASCIZ /*03#A / 
.EVEN 

CARLF: . ASCIZ /#N/ 
.EVEN 

ENOMOO 



SEQ 0083 

i RE TURN 



G7 



MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 06:33 PAGE 45-2 
CZTUUT.P11 25-JAN-84 08:09 PRNP AK /MODULE TO PRINT DATA PACKET 

.TITLE MISCELLANEOUS SECTIONS 
.SBTTL REPORT COOING SECTION 

BGNMOO 



6450 






6431 






6459 






6460 


015170 




6461 






6462 






6463 






6464 






6465 






6466 






6467 


015170 




(3) 


015170 




6466 


015170 




(1) 


015170 


010046 


(1) 






(1) 






6469 


015172 




(i) 


015172 


010146 


(1) 






(1) 






6470 


015174 




(I) 


015174 


010246 


(i) 






(i) 






6471 


015176 




(1) 


015176 


010346 


(1) 






(1) 






6472 


015200 




(1) 


015200 


010446 


(1) 






(1) 






6473 


015202 




(1) 


015202 


010546 


CI) 






(1) 






6474 






6475 


015204 




(3) 


015204 


104422 


6476 


015206 


012'37 


64 77 


015214 




( n 


015214 


012746 


(6) 


015220 


012746 


(3) 


015224 


010600 


(4) 


01S226 


104416 


(4) 


015230 


062706 


6478 


015234 




(3) 


015234 


104422 


6479 


015236 




(7) 


015236 


012746 


(6) 


015242 


012746 


(3) 


015246 


010600 


(4) 


015250 


104416 


(4) 


015252 


062706 


6480 


015256 




(3) 


015256 


104422 



, THE REPORT COOING SECTION CONTAINS THE 

t "PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 

i - - 



BGNRPT 
PUSH RO 



L»RPT : 



NOV RO.-(SP) 



PUSH Rl 

PUSH R2 

PUSH R3 

PUSH R4 

PUSH R5 

BREAK 

MOV 46LKT8L.RPTR iGET 1ST OEVICE BLOCK 

PRINTS 4STATH0 j HEADER 



HOV 



MOV 



MOV 



MOV 



MOV 



Rl.-(SP) 
R2.-CSP) 
R3.-CSP) 
R4.-(SP) 
R5.-CSP) 



It: 



BREAK 

PRINTS #STH02 



BREAK 



»tC CHECK 
i 2ND HEADER 



itC CHECK 



TRAP 



HOV 

MOV 

MOV 

TRAP 

ADO 

TRAP 

MOV 

MOV 

MOV 

TRAP 

ADD 

TRAP 



SEQ 0084 



C«BRK 



♦STATHD. 
♦1. (SP) 
SP.RO 
C»PNTS 
94. SP 

CSBRK 

GSTMD2. - 

♦l.-(SP) 

SP.RO 

CIPNTS 

*4.SP 

C*BRK 



H7 



MISCELLANEOUS SECTIONS MACYU 30(1046) 25-JAN-84 08:33 PAGt 45-3 
CZTUUF.PH 25-JAN-84 08:09 REPORT COOING SECTION 



SEQ 0085 



6481 
6482 
6483 
6484 
6485 
6486 
6487 
6488 
6489 
6490 
6491 
6492 
6493 
6494 
6495 
(8) 
(7) 
(6) 
(3) 
(4) 
(4) 
6496 
(15) 
(14) 
(13) 
(12) 
(11) 
(11) 
(10) 
(9) 
(8) 
(7) 
(6) 
(3) 
(4) 
(4) 
6497 
6498 
6499 
6500 
6501 
6502 
6503 
6504 
6505 
6506 
C15) 
(14) 
C13) 
(12) 
(11) 
(11) 
(10) 
(9) 
(8) 
(7) 



015260 
015264 
015270 

015272 
015276 
015304 
015310 
015314 
015320 
015324 
015330 
015334 
015340 
015344 
015344 
015350 
015354 
015360 
015362 
015364 
015370 
015370 
015372 
015374 
015376 
015400 
015402 
015406 
015412 
015416 
015422 
015426 
015432 
015434 
015436 
015442 
015446 
015452 
015456 
015462 
015466 
015472 
015476 

015502 
015502 
015504 
015506 
015510 
015512 
015514 
015520 
015524 
015530 
015534 



017705 
032715 
001131 

011537 
042737 
116501 
042701 
116502 
042702 
116503 
042703 
116504 
042704 

013746 
012746 
012746 
010600 
104416 
062706 

010446 
010346 
010246 
010146 
005046 
156516 
016546 
016546 
012746 
012746 
012746 
010600 
104416 
062706 
116501 
042701 
116502 
042702 
116503 
042703 
116504 
042704 



010446 
010346 
010246 
010146 
005046 
156516 
016546 
016546 
012746 
012746 



000332 
004000 



015614 

177770 015614 

000122 

177400 

000124 

177400 

000136 

177400 

000140 

177400 

015614 
015732 
000002 



000006 



000134 
000114 
000110 
000000 
015750 
000011 



000024 
000123 
177400 
000125 
177400 
000137 
177400 
000141 
177400 



MOV 


8RPTR ,R5 


tCcT DEVICE BLOCK 


BIT 


•BIT11 tSR5 


lUNIT NOT itblcUf 


BNE 


2% 


1 TRUE* DON'T PRIN T 5TATIbTICb 






. Cu* Tn DOTkiT 

| UK TQ KHXNl 


nuV 


8H j , RLUN 


1 bMVfc bfMfUb WORD 


BIC 


A 9 "7 "7 "7 "7 A Ol 1 fel 
• 1 iff f U ,KLUN 


| n«bl\ UNI 1 NUH . 


HOUR 


£0FTRfR5} Rl 


i SOFT RE AD 


BIC 


•177400. Rl 


iSIGN-UNEXTENO 


MOVB 


S0FTU(R5).R2 


iSOfT WRITE 


BIC 


♦177400. R2 




MOVB 


HARDR(R5).R3 


!hard reao 


BIC 


♦177400. R3 




MOVB 


HAR0U(R5).R4 


'iHARD WRITE 


BIC 


♦177400. R4 




PRINTS 


♦FM0.RLUN 


! SUMMARY /UNIT 9 



MOV 
H0V 
TRAP 
A0D 

PRINTS ♦TM i 00 t WRTN0(R5) t RDN0(R5).<B.BDATA(R5)> ,R1.R2.R3,R4 

MOV 
MOV 
MOV 
MOV 
CLR 
BISB 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
A00 



MOVB 


S0FTR»1(R5).R1 


tSAME 




BIC 


♦177400. Rl 


>AS 




MOVB 


S0FTW»1(R5).R2 


(ABOVE 




BIC 


♦17 7400. R2 


iTMIS 




MOVB 


HAR0R»1(R5).R3 


1 TIME 




BIC 


♦17 7400. R3 


iFOR 




MOVB 


HARDW»1(R5).R4 


I DRIVE 




BIC 


♦17 7400. R4 


(ONE 




PRINTS 


•FM.^1.WRTN1(R5).RDN1(R5).<B.B0ATA.1(R5)» 


.R1.R2.R3.R4 






MOV 



000135 
000116 
000112 
000001 
015750 



MOV 

MOV 

MOV 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 



RLUN.-(S 

♦FM0.-(S 

«2.-(SP) 

SP.RO 

C*PNTS 

♦6.SP 

R4. -(SP) 

R3.-(SP) 

R2.-(SP) 

Rl.-(SP) 

-(SP) 

BOAT AC R5 

RON0(R5) 

WRTN0(R5 

♦O.-(SP) 

♦FM.-(SP 

♦11. (SP 

SP.RO 

C»PNTS 

♦24. SP 



R4. (SP) 
R3. -(SP) 
R2.-(SP: 
Rl. -(SP) 

(SP) 
BOATA.K 
R0NKR5) 
URTNKR5 
91. -(SP) 
«FM. (SP 



I 7 



MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 08:33 PAGE 45-4 

REPORT COOING SECTION 





Pll 25- JAN -84 


f\m „ AO 


(6) 


015540 


012746 


OOUvll 


(3) 


015544 


010600 




(4 ) 


015546 


104416 




C4 ) 


015550 


062706 


OQUvc* 


6507 


015554 


023727 


015616 


/CAl 


015562 


103005 




65Q? 


015564 


062737 


OWW<: 


ODlO 








/Cl « 

ODll 


015572 


000137 


UlOcDO 


6512 








6515 


015576 






(1/ 


015576 


012605 




11) 








©Dl4 


015600 






CI/ 


015600 


012604 




i 1 i 










015602 






11/ 


015602 


012603 




11/ 










015604 






CI/ 


015604 


012602 




C 1 ) 








DDI f 


015606 






V 1 1 


015606 


012601 




11/ 








ODlG 


015610 






CI) 


015610 


012600 




v 1 J 










015612 








015612 








015612 


104425 




DDcU 


015614 


000000 






015616 


000000 












vJCJ 


015620 


047045 






015666 


041504 


A4CC« f\ 






015732 






015732 


040445 




ODc r 




015750 














015750 


040445 




6530 


016024 


042045 


022463 


6531 




016074 




6532 


016074 


040445 


020040 


6533 


016141 


122 


041505 


6534 




016204 




6535 


016204 







2%. 



3»: 



RLUN: 
RPTR: 



CMP 

BHIS 

ADO 

JMP 

POP 

POP 

POP 

POP 

POP 

POP 

ENORPT 



. WORD 
.WORD 



STATH0: .ASCII 
.ASCIZ 
.EVEN 

FM0: .ASCIZ 
.EVEN 



FM: 



STM02: 



.ASCII 

.ASCIZ 

.EVEN 

.ASCII 

.ASCIZ 

.EVEN 

ENDMOO 



RPTR.4LSTDEV 
31 

42, RPTR 

U 

R5 

R4 

R3 

R2 

Rl 

RO 



j ALL UNITS DONE? 

«YES 

iNO-DO 

j MORE UNITS 



MOV 
MOV 
TRAP 
ADO 



SEO 0036 

•11. (SP 
SP.RO 
CIPNTS 
♦24. SP 



MOV 



MOV 



MOV 



(SP)».R5 



(SP)».R4 



(SP)..R3 



MOV CSPV.R2 



MOV 



MOV 



(SP)..R1 



CSP)».R0 



L10006: 



TRAP 



C»RPT 



/#N#A OR BLKS WR BLKS RO BOPAK / 

80CHK/RD DCMK/WR DCHK/RD DCHK/UR«N3 

/•AUNIT *01*N/ 



/#A «01«A «05«A. *05#A. #D3#A. 

/«03#A. *03*A. #03* A. *03*A.#N/ 

/*A / 

/RECOV RECOV UNRECOV UNRECOV*N/ 



J7 



MISCELLANEOUS SECTIONS MACU1 30C1046 ) 25-JAN-84 06:33 PAGE 46 
CZTUUF. PU 25 JAN -84 08:09 INITIALIZE SECTION 



SEQ 0087 



6536 










. SBTTL 


INITIALIZE SECTION 






6539 




















£. C A A 

6540 










i ♦ ♦ 










^ K A * 

6541 










» THE INITIALIZE 


• SECTION CONTAINS THE COOING THAT IS PERFORMED 




6542 










i AT THE BEGINNING OF EACH PASS . 






6543 










t 










^ C A A 

6544 




















^ C A c 

6545 


016204 










BGNINIT 








/" i ^ 
I 3) 


016204 














1 ft TUT T - . 




6546 




















6547 


A«r AAA 

0162O4 


AAA OA A 

0O0240 






TUT T 

INIT : 


NOP 




I 




6551 


016206 


105037 


r\ « t "» ia 

016770 






CLRB 


STRT 


.CAD CTATC Ct CAO 




6552 


A* £ O « O 

016212 


005037 


AAV VA A 

003344 






CLR 


TEST9 


•aaaaa n d tct q n An 




6553 


016216 










READEF 


♦EP. START 


. C T AD T C AMM AUTI ? 




( 3 ; 


016216 


A a o 7AA 

0127UO 


AAAAiA 

0UQQ40 












MAU 

nuv 


i 3 ; 


016222 


10444 7 














TO AD 
1 KHr 


65^4 


A « / AO* 

016224 










BNCOMPLETE INIT2 


|N0 




Ic J 


016224 


« AVAAt 

103OO3 














DLL 


/rrc 
O ->->-> 


At f O - *^ 

016226 


OOD23 f 


At C7 7A 
OlO f r{j 






INL 


STRT 


»TES. SET START FLAG 




6556 


A a ^ A » A 

016232 










OHfc bt 1 




tBUSS RESET. EH? 




( 3 ; 


At /Oil 

O 16232 


t AJJtt 

104433 














TOAD 


tec? 
6557 


A • ^ OVA 

016234 


A a A7J7 

012737 


AA» f CO 

003352 


AA 11 1 A 

003314 


TUT TO- 

INIT2 : 


MAU 

nuv 


•BLKTBL.OEVPTR 


iSET ALL UNITS ABORTED: 






A a ^ OA O 

016242 


AACAAJ 

OODOU4 








CLH 


R4 


j UNIT NUMBER 




ZCCQ 


At / AJ A 

016244 


At 1 7 AC 

Ol r rOD 


t £CAJi 

1OD044 




« a 

If : 


MAU 

nuv 


80EVPTR.R5 


i GET POINTER 




65oQ 


A a /APA 

016250 


At AJ « C 

01041b 








MAU 

nuv 


R4.8R5 


(INSERT UNIT « 




6561 


A a ^ AT O 

016252 


052715 


t AAAAA 

iooooo 






ore 
olb 


•BIT15.8R5 


j SET ABORTEO 




6562 


At/ -vtr / 

016256 


AC A ^ « C 

052715 


AAAAAA 

004000 






D TC 


♦BIT11.8R5 


j SET UNIT NOT TESTED 




/CXI 

o_>o3 


Alt <*VZ A 

016262 


AAt V/VA 

006304 








ACt 


R4 


1*2 POR LOOK-UP 




Z tXil 

©D©4 


Alt *U J 

016264 


A a t At C 

016465 


02 r f 24 


AAA t AO 

OOOlOc 




MAW 

nuv 


BUFTBL(R4).RCVBUF(R5) i SETUP POINTER TO UNITS 




tc/c 
6365 


A a / A ^ A 

016272 


006204 








ASP. 


R4 


(CORRECT BACK TO UNIT » 




ODOO 


A « t07i 

0162 7 4 


A^17^7 

023727 


AA|*I A 

003314 


AA11 7 A 

0033 f 0 




CMP 


OEVPTR . #LS TDE V 


(LAST DEVICE DONE? 




ODO f 


A a t a» A A 

016302 


a A1AAC 

103005 








BHIS 


CHECK 


lYES 






A a tlAJ 

016304 


A/ A ■» "* 

062737 


AAAAAA 

000002 


AA11 1 A 

003314 




ADO 


•2. OEVPTR 


I NO-GET 






A « til 1 

016312 


AACAAt 

005204 








INC 


R4 


iNEXT DEVICE AND 




te7A 


A1 tlli 

016314 


AAAfCI 

000753 








BR 


1$ 


(SERVICE 




4^71 
OD rl 




















Ob rc 


Al tilt 

016316 


A01717 

022737 


AAAA t A 

000010 


AAAAl A 

002012 


CHECK : 


CMP 


•8. .LtUNIT 


>MAKE SURE NOT 




©-> f 3 


A « tl A i 

016324 


a A 1 AAC 

103005 








BHIS 


GETHRO 


jTOO MANY UNITS 




OD r 4 


A« t 1 "Vt 

U 16326 








ERRSF 


101 . . TOMAN Y 


t T0MANY -REQUEST *C 




14 J 


A a t 

016326 


104454 
















o; 


A a t«lA 

016330 


AAA t AC 

000145 














uaoa 


I b J 


At 

01O33Z 


At t7At 

016706 
















\ b 9 


Al/*|J 


AAAAAA 














.WORD 


OD O 


Ai/lfjr 

U10330 










OOCLN 




• EXIT 






U1033O 


t f\AAAA 

1U4444 














TRAP 
I nnr 


OD f O 




















A^77 
OD r f 




Al 0717 
Ulc f 3 f 


UUbbbc 


AAfffl A 

UU3314 


GETHRD: 


MOV 


♦BLKTBL.OEVPTR 


tINIT TABLE POINTER 




6S7A 




AACAA4 








CLR 


R4 


j CLEAR DEVICE COUNTER 




6579 


016350 


017705 


164740 




1$: 


MOV 


OEVPTR, R5 


jGET STATUS WORD 




6560 


016354 


010437 


002074 






MOV 


R4.LILUN 


iUNIT NUM. IN CASE ERROR 




6561 


016360 










GPHARO 


R4.R2 


jGET HARD 1^0 


MOV 


(3) 


016360 


010400 














C3) 


016362 


104442 














TRAP 


(3) 


016364 


010002 














MOV 


6562 


016366 










BNCOMPLETE S» 




BCC 


(2) 


016366 


103111 















♦EF .STAR 
C«REPG 

INIT2 



C«RESET 



C*£RSr 
101 

TOMANt 
0 

C*0CLN 



R4.R0 

CtGPHRD 

R0.R2 

3« 



MISCELLANEOUS SECTIONS MACY11 30(1046) 25 JAN-84 06;SS PAGE 
CZTUUF.P11 25-JAN 64 06:09 INITIALIZE SECTION 



6563 


016370 


042715 


A A a AAA 

004000 






BIC 


6564 


016374 


012203 








MOV 


6565 


016376 


012265 


AAAAAA 

000204 






H0V 


6566 


016402 


112265 


AAAA/ • 

000061 






novo 


6567 


016406 


005202 








TkiC 

INC 


6566 


016410 


012237 


016772 






UAy 

HOV 


6569 


0164 14 


AC A. ~9 « C 

052715 


AX AAAA 

040000 






DTC 

bib 


6590 


016420 


032765 


AAA A AA 

000400 


AAAA/ A 

000060 




a tt 
BIT 


6591 


016426 


001011 








otic 


6592 


016430 


A V A E 

032765 


AA 4 AAA 

001000 


AAAA/ A 

OOOOoO 




QTT 
Oil 


6593 


016436 


AAa AAC 

001005 








BNE 


6594 


016440 










COO CP 


(4) 


016440 


a /*\ a jr a 

104454 










t C N 

(5) 


016442 


AAA t AX 

000146 










f C N 

(5) 


016444 


A t X 7 fX 

016736 










' c % 

^ 5) 


A « X X XX 

016446 


AAAAAA 

000000 










X t AC 

6595 


A 4 a? a C A 

016450 










OOCCn 


C 3) 


/\ a ^ a C A 

016450 


t AJ J JJ 

104444 










6596 












TCTO 


X C A7 

6597 


At X X C A 

016452 


t AC 717 

105737 


A 1/1 7A 

016770 




111. 
lo* : 


6596 


016456 


AA t X t A 

001412 








Den 


XC AA 

6599 












MOW 

nuv 


6600 


A « K. A X A 

016460 


A t A7AA 

012702 


AAAAAA 

000202 






X X A 4 

6601 


A « X XX A 

016464 


At "> 7A « 

012701 


AAA a • A 
OOOllO 






MAW 

nuv 


6602 


016470 


060501 








AAA 

AOO 


6603 


016472 


• * A T A^ 

162702 


AAAt t A 

000110 






Cl fi 


6604 














^ r ACf 

6605 


016476 


105021 






A a 

29 : 


PI DD 

CCKo 


x x a £■ 

6606 


016500 


005302 








A TP 

otc 


6607 


016502 


001375 








BNt 


^ ^ AA 

6606 


016504 


042715 


• AAAAA 

100000 




« X t . 

14 1 : 


BIC 


X^ AA 

6609 


016510 


010365 


AAAAAA 

000022 






MAW 

nov 


6610 


016514 


AX A7A7 

062703 


AAAAAA 

000002 






Ann 

wo 


^ ^ a a 

6611 


016520 


a • ay/ c 

010365 


AAAA AX 

000024 






MAW 

nov 


X X a a 

6612 


A* / oa 

016524 


AX A7A7 

062703 


AAAAAA 

000002 






nnn 

MOO 


X a* a ■» 

6613 


A t ^ C * A 

016530 


A t A »^ CT 

010365 


AAAAA/ 

000026 






MAW 

nov 


X X a a 

bo 14 


At #p *a 

016534 


AX A7A V 

062703 


AAAAAA 

000002 






AAA 

nUU 


6615 


At /EAA 

016540 


t AC 7 V 7 

105737 


A t X 77 A 

016772 






TCTO 


6616 


At X C A A 

016544 


AA t AAA 

001402 








OCA 


X X « ^ 

6617 


At £KA£ 

016546 


t X A 1AV 

162 703 


AAAAAX 

000004 






Cl A 

bOO 


oolo 


At /crt 

016552 


A t At/ C 

010365 


AAAA V A 

000030 




it, 
41 : 


MAW 

nov 


^.ar a A 


016556 


AAC AX C 

005065 


AAAA 7 A 

000072 






CCK 


X X. AA 

6620 


A t / EC A 

016562 


005065 


AAAAAA 

000002 






Cl D 

CCK 


a- ^ -v « 

6621 


At ^.CX?X 

016566 


AAC AX C 

005065 


AAAA/ X 

000064 






Cl D 
CCK 




016572 


AACAXC 

005065 


AAAA 7 X 

0000 76 






Cl D 
CCK 


oo25 


At £C7£ 

016576 


AAC AX C 

005065 


AAAA7X 

000074 






Cl 0 
CCK 


OOc4 


A t XX AA 

OlOOOc 


AACAXC 
0050©D 


AAAA t A 






Cl D 
CCK 


OOcj 


viOOUD 










CCn 


6626 


016612 


062737 


000002 


003314 


31: 


ADO 


6627 


016620 


005204 








INC 


6626 


016622 


020437 


002012 






CMP 


6629 


016626 


001250 








BNE 


6630 














6631 


016630 


005037 


003310 






CLR 


6632 


016634 










Rf LAGS 


(3) 


016634 


104421 











l<7 

46-1 



•6IT11.0R5 

(R2)».R3 
(R2)».TUVECT(R5: 
(R2)».0R*1(R5) 
R2 

(R2)».PDTFLG 
♦6IT14.8R5 
«6IT6.0R(R5) 
13) 

♦8IT9.DRCR5) 
13$ 

102. .N00RVS 



SEQ 0008 



STRT 
14$ 

4BLKEND.R2 
♦WRTN0.R1 
R5.R1 
•WRTN0.R2 

(Rl)* 

R2 

21 

46IT15.&R5 

R3.RCSRCR5) 

♦2.R3 

R3.RC08(R5) 
•2.R3 

R3.XMSRCR5) 
♦2.R3 
POTFLG 
4* 

♦4.R3 

R3.XMDBCR5) 

PATTENCR5) 

RETRYCR5) 

REC(RS) 

SUCCSCR5) 

DLVCR5) 

MRSPCR5) 

ALLGON 

♦2.0EVPTR 

R4 

R4.LIUNIT 
If 

SYSTAT 
FLGLOC 



lUNIT IS TESTED! 
IR3-CSR 

1 GET VECTOR ADDRESS 
1 SAVE UNIT SUMMARY 
1 GET TO WORD BOUND 
1 AND GET PDT FLAG 
1 SET SEND BREAK FLAG 
iDRIVE 0? 
1 YES 

jDRIVE 1? 
I OK 

iNEITMER?! 



;EXIT 



1 START COMMAND? 
:N0. DONT CLEAR 
j YES-CLEAR STATS 
iR2->END OF STATS 
(FORM ADDRESS OF START: 
jRl-->START OF STATS. 
1 FORM « TO CLEAR 

1 CLEAR 'EM 

jMORE? 

«YES 

1 SET NOT ABORTED 
1 GET DEVICE REGISTERS: 



i UNIT A PDT> 
I NO 

j YES. . .RCDB-XMDB 

jZERO DATA PATTERN 

iNO RETRIES 

iNO RECORD 

1 NO SUCCESS 

iNO OLV ERROR 

,**a*» CLR MRSP INDICATOR 

,0K TO PRINT STATISTICS 

j-->NEXT DEVICE 

1 INCREMENT UNIT NUMBER 

I MORE UNITS? 

jYES. GP HARD THE NEXT 

I SYSTEM STATUS WORD 
1 GET USER FLAGS 



TRAP CiERSF 

.WORD 102 

.WORD NOORVS 

.WORD 0 



TRAP 



CIOCLN 



TRAP 



ClRFLA 



L7 
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(3) 


016636 


010037 


016774 














6633 


016642 


005037 


003334 




5»: 


CLP. 


BLKER 


iNO ERROR 




6634 


016646 


013737 


002210 


003312 


SETLEN: 


MOV 


LENGTH, TAPLEN 


I GET 4 OF RECORDS 




663S 


016654 


006237 


003312 






ASP 


TAPlEN 


iGET 4 BLOCKS PER 


TRACK 


6636 


016660 


012737 


000200 


003336 




MOV 


4200 , SECREC 


i PRESET SECOND START AT 200 


6637 


016666 


022737 


000200 


003312 




CMP 


♦200. TAPLEN 


i* BLKS > 126.7 




6638 


016674 


101003 








BHI 


3* 


l NO -SWITCH TRACKS 


2ND PASS 


6639 


016676 


012737 


000400 


003336 




MOV 


•400. SECREC 


I YES -START AT 400 




6649 




















6661 




















6662 


016704 








3$: 


ENDINIT 








(3) 


016704 
















L10007: 


(3) 


016704 


104411 
















6663 




















6664 




















666S 


016706 


047524 


020117 


040515 


TOMANY: 


.ASCIZ 


/TOO MANY UNITS 


MAX. -6 / 




6666 




016736 








.EVEN 








6667 


016736 


042523 


042514 


052103 


NOORVS: 


.ASCIZ 


/SELECT AT LEAST 


1 DRIVE / 




6668 




016770 








.EVEN 








6669 


016770 


000000 






STRT: : 


.UORO 








6670 


016772 


000000 






POTFLG: 


: .WORD 


lTU58 IS IN POT 




6671 


016774 


000000 






FLGLOC : 


: .UORO 


tUSER FLAGS 





MOV 



SEQ 008 i 
RO.FLGLO 



TRAP 



C»INIT 



M7 
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6674 




















6675 










i *THE AUTO DROP 


CODE IS INVOKEO WHEN THE ADR FLAG IS SET AND CHECKS FOR 




6676 










I A VALIO INTERFACE LOCATION. 


DROPS UNIT IF INTERFACE IS NOT THERE. 




6677 










; - 










6678 




















6679 


016776 








BGNAUTO 










(3) 


016776 












L»AUTO: : 






6680 


016776 


000240 






NOP 


i AUTO OROF ROUTINE 






6681 


017000 








SETVEC 


«4.#TRPHND.*PRI07 jGET BUS TRAP VEC. 






(7) 


017000 


012746 


000340 










MOV 


*PRI07. 


(6) 


017004 


012746 


017106 










MOV 


^TRPHNO . 


(5) 


017010 


012746 


000004 










MOV 


94. CSP) 


(4) 


017014 


012746 


000003 










MOV 


*3.-(SP> 


(3) 


017020 


104437 












TRAP 


CISVEC 


C2) 


017022 


062706 


000010 










ADD 


*10.SP 


6682 


017026 


012737 


003352 


017104 


MOV 


♦BLKTBL , TRPPTR 


iGET TOP OF OATA BLOCK TABLE 






6683 


017034 


017705 


000044 




1$: MOV 


8TRPPTR.RS 


(GET OATA BLOCK 






6684 


017040 


032715 


104000 




BIT 


♦6IT15IBIT11.9R5 iNOT TESTED OR ABORTED? 






668S 


017044 


100403 






BMI 


21 


1 YES 






6686 


017046 


005775 


000022 




TST 


8RCSRCR5) 


1 NO -VALID ADDRESS? 






6687 


017052 


000240 






NOP 




j YES... (TRAP IF NOT) 






6688 


017054 


023727 


017104 


003370 


21: CMP 


TRPPTR , 4LST0EV 


j MORE TO TRY? 






6689 


0170UJ 


103004 






BHIS 


31 


;N0 






6690 


017064 


062737 


000002 


017104 


ADD 


•2, TRPPTR 


SUN 1 U pica 1 






6691 


017072 


000760 






BR 


11 


iGET IT 






6692 


017074 








31 : CLRVEC 


«4 


(RESTORE 






(3) 


017074 


012700 


000004 










MOV 


*4.R0 


C3) 


017100 


104436 












TRAP 


CICVEC 


6693 


017102 








END AUTO 










C3) 


017102 












L 10010: 






(3) 


017102 


104461 












TRAP 


CSAUTO 


6694 


017104 


000000 






TRPPTR: .WORD 










6695 




















6696 




















6697 




















6698 




















6699 










I ILLEGAL AOORESS TRAP HANDLER: 








6700 




















6701 


017106 








TRPHNO: PRINTF 


♦MSAUTO 


iSAY "AUTO DROPPEO" 






C7) 


017106 


012746 


017140 










MOV 


OMSAUTO ■ 


(6) 


017112 


012746 


000001 










MOV 


91. >(SP) 


C3) 


017116 


010600 












MOV 


CO OA 

SP.nO 


C4) 


017120 


104417 












TRAP 


C$PNTF 


(4) 


017122 


062706 


000004 










ADD 


*4.SP 


6702 


017126 


011500 






MOV 


8RS.R0 


j GET UNIT * 






6703 


017130 


042700 


177770 




BIC 


♦177770.R0 


j MASK IT OFF 






6704 


017134 








OODU 


RO 


;DR0P HIM 






(3) 


017134 


104451 












TRAP 


C$DODU 


6705 


017136 


000002 






RTI 










6706 


017140 


040445 


052501 


047524 


MSAUTO: .ASCIZ 


/#AAUT0 DROP: 


#N/ 







N7 
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SEQ 0091 



6709 








,S8TTL 


CLEANUP 


CODING SECTION 


6710 














6711 














6712 








5 THE CLEANUP CODING SECTION CONTAINS THE COOING THAT IS PERFORMED 


6713 








t AFTER 


THE HARDWARE TESTS HAVE BEEN PERFORMED. 


6714 








i 






6715 














6716 


017160 








BGNCLN 




(3) 


017160 










LICLEAN: : 


6717 


017160 


005737 


003342 




TCT 


HLLuUN IfcNIKHNLfc r KUn HLL -UNI I b -MoUH 1 fcU r 


6718 


017164 


001004 






BNE 


1$ i YES-EXIT 


6719 


017166 


005737 


002212 




TST 


STAEOP »N0-STATS AT EOP? 


6720 


017172 


001401 






BEQ 


1$ iNO 


6721 


017174 








DORPT 


lYES 


f x \ 

K o J 


At 7» TA 










TRAP 


6722 














6729 














6741 














6742 


017176 






1$: 


BRESET 




(3) 


017176 


104433 








TRAP 


6743 


017200 








ENDCLN 




(3) 


017200 










L 10011: 


(3) 


017200 


104412 








TRAP 



CIDRPT 

CIRESET 
CICLEAN 



B8 
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SEQ 0092 



6746 
674 7 
6746 
6749 
6750 
6751 
6752 
6753 
(3) 
6754 
6755 
(1) 
(1) 
(1) 
6756 
v'l) 
(1) 
(1) 
6757 
6756 
6759 
(1) 
(I) 
6760 
(1) 
(1) 
6761 
(6) 
17) 
(6) 
(3) 
(4) 
(4) 
6762 
6766 
6760 
6761 
(3) 
(3) 
6762 
6763 
6764 
6785 
6766 
6767 
6786 
6789 
6790 
6791 
6792 



017202 
017202 

017202 
017202 



017204 
017204 



017206 
017212 
017216 
017216 

017220 
017220 

017222 
017222 
017224 
017230 
017234 
017236 
017240 



017244 
017244 
017244 
017246 
017254 
017260 
017262 
017264 
017272 
017274 
017276 

017300 



.SBTTL DROP UNIT SECTION 

!*THE DROP-UNIT SECTION CONTAINS THE COOING THAT CAUSES A DEVICE 
l TO NO LONGER BE TESTED. 



010046 



010546 



BGNDU 
PUSH 

PUSH 



RO 



R5 



004737 017246 
052715 100000 

012605 



012600 



010046 

012746 017300 
012746 000002 
010600 
104417 

062706 000006 



104453 

012737 003352 017276 
017705 000016 
005300 
100404 

062737 000002 017276 

000770 

000207 

000000 

040445 051104 050117 
017326 



CALL GETR5 
BIS 4BIT15.8R5 
POP R5 



POP 



RO 



PRINTS ♦ABOMSG.RO 



GET«*5: 
It: 



2»: 
PTR: 

ABOHSG: 



ENDOU 



MOV 
MOV 
DEC 
6MI 
ADO 
BR 

RETURN 
.UORO 

.ASCIZ 
.EVEN 



•BLKTBL.PTR 

BPTR.R5 

RO 

2f 

♦2. PTR 
It 



iRO-UNIT NUMBER 
l SAVE IT 

MOV RO.-(SP) 



LtOU: : 



tSAVE PRESENT UNIT POINTER 
MOV R5.-(SP) 



I GET POINTER TO UNIT 
I SET ABORTED 

(RESTORE PRESENT UNIT POINTER 
MOV (SP)».R5 



I RETRIEVE UNIT NUMBER 
MOV (SP)..RO 



U 10012: 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 



TRAP 



RO.-(SP) 

♦A60MSG. 

♦2. (SP) 

SP.RO 

CtPNTF 

•6.SP 



CtDu 



l - - >UNIT 0 

I GET STATUS WORD 

t CORRECT UNIT? 

itES 

iNO.-->NEXT 
l CONTINUE 



/tfAOROPPED UNIT «01«N/ 



C8 

6795 .SBTTL ADO UNIT SECTION 

6796 

6797 '*TME ADO -UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WIS»CS 



TO BE EXECUTED IN CONJUNCTION UITM THE ADDING OF A UNIT BACK 
TO THE TEST CYCLE. 



6796 
6799 
6800 
6601 

6802 i 

6803 017326 BGNAU 

(3) 017326 l»hu.. 

US? j THE INIT CODE CONTAINS ALL CODE NECESSARY TO ADO A UNIT. 

6811 
6823 
6824 

6626 017326 EN0AU L 1001 3- 

(3) 017326 * TRAP CIAU 

(3) 017326 104452 ' L 

6827 
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DEVICE SELF DIAGNOSTIC EXCCUTION 



SEQ 0094 



6666 






6667 






6666 


017330 




666* 






66*0 






66*1 


017330 




(3) 


017330 




6692 


017330 




(1) 


017330 


012737 


CI) 


017336 


004737 


f a X 

CI) 


017342 


004737 


CI) 


017346 


004737 


CI ) 


At Iff *> 

0173S2 


AAJ "W ^ 

004737 


f a X 

CI) 


017356 


103004 


f « \ 

CI) 


017360 


004737 


CI) 


f*« It/ a 

017364 


AAa ^ » 

004737 


fax 

CI) 


017370 




4- AAV 

66*3 


#\« it 
017370 




C3) 


Al *W-?/X 

017370 


104432 


f » x 
C3) 


f\ a Ifl'V 

017372 


000136 


6694 






6695 


017374 




f a X 

CI) 






^ 4 \ 

CI) 


017374 


f*« «X TAA 

012700 


f « X 

CI) 


017400 


112710 


f « \ 

CI) 


017404 


112760 


f « \ 

CI) 


017412 


112760 


fax 

CI) 


017420 


105060 


f « * 

CI j 


017424 


005060 


f % \ 

CI) 


017430 


005060 


^ 4 \ 

CI) 


017434 


005060 


fax 

CI) 


017440 


005060 


fax 

CD 


017444 


012701 


^ 4 \ 

CI) 


/\a <aA»A 

017450 


005721 


CD 


017452 


012765 


CD 


017460 


004737 


/ 4 \ 

CD 


017464 


010110 


CD 


017466 


012765 


f « % 
CD 


f*a fa a 

017474 


012765 


f « X 

CD 


017502 


012765 


/" 4 \ 

CD 






fax 

CD 


017510 


004737 


e 4 \ 
CD 


ft a a a 

017514 


032715 




A4 7C)A 

vl 'Jew 




CI) 






6696 


017522 


005237 


6697 


017526 


000207 


6696 






6699 






6900 


017530 




C3) 


017530 




C3) 


017530 


104401 



. SBTTL TEST 1 / DEVICE SELF -DIAGNOSTIC EXECUTION 

BGNM0D 
.NLIST ME. BEX 



017374 003330 

006024 

005652 

006072 

005532 

006024 
006072 



BGNTST 

TSTID 4TST1 



TSTl: 



EXIT TST 



TUSELF 



64t: 



K0V #1511.15110? 

CALL SETUP 

CALL SETOR 

CALL RUN 

CALL 5UAPDR 

BCC 64* 

CALL SETUP 

CALL RUN 



Tl:: 

•SAVE AOOR OF TEST 
tINIT UNITS TSTPC 
I GET 1ST DRVS. 
»D0 TEST 
i GET NEXT ORVS. 
i BR NO 2ND ORVS 
iREINIT UNITS TSTPC 
I REPEAT TEST 
: DONE 



TRAP 
.WORD 



C«EXIT 
L 10014 



027746 




641: NOV 


4TRBUF.R0 


: FORM COMMAND PACKET 


000002 




MOVB 


4RSCMN0.BR0 


I COMMAND FLAG 


000012 


000001 


MOVB 


•RSMSI2.KR0) 


iSIZE OF MESSAGE 


000007 


000002 


MOVB 


4RSSSLF ,2(R0) 


iSELF TEST OPERATION 


000003 




CLRB 


3(R0) 


j NO MODIFIER. 


000004 




CLR 


4CR0) 


iNO DRIVE OR SWITCHES 


000006 




CLR 


6CR0) 


jNO SEQUENCE NUMBER 


000010 




CLR 


8.CR0) 


tNO BYTES 


000012 




CLR 


10. (RO) 


tNO RECORD 4 


000012 




MOV 


4RSMSIZ.R1 


(GET SIZE 






TST 


CR1)» 


i*2 FOR CHECKSUM 


000016 


000070 


MOV 


4RSSNSZ . SNOCNT ( R5 ) iSIZE TO SEND 


013674 




CALL 


CHKSUM 


(FORM CHECKSUM 






MOV 


Rl.CRO) 


{INSERT INTO PACKET 


000002 


000034 


MOV 


4RSEND.XSFLGCR5) t EXPECT END. 


000016 


0000*6 


MOV 


•RSNDSZ.XSCNT(RS) tTMlS BIG 


000001 


000032 


MOV 


♦l.XSPKNMCRS) 


t AND 1 PACKET 










(SEND 


006600 




CALL 


RSVP 


iRETURN TO SCHEDULER 


000010 




BIT 


•BIT3.8R5 


|RETRY?(BAD FLAG) 






BNF 


64$ 


itES 



003324 



INC DONE 
RETURN 



ENOTST 



L10014: 



TRAP 



C*ETST 
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6903 








6904 








6905 


017532 






(3) 


017532 






6906 


017532 






(1) 


017532 


012737 


017576 


CI) 


017540 


004737 


006024 


CI) 


017544 


AAA 7*7 

004737 


005652 


CI) 


017550 


/VA A ■» » T 

004737 


006072 


CI) 


017554 


AAA ^ » 7 

004737 


005532 


CI) 


017560 


• AW AAA 

103004 




CI) 


017562 


AAA 111 

004737 


AM/ A">A 

006024 


1 1) 


017566 


AAA * 

004737 


AAjg A7A 

006072 


f 4 ■\ 

CI) 


A • ■« t T A 

017572 






6907 


017572 






v 3) 


017572 


• r\M AY** 

104432 




C 3) 


A4 1C T A 

017574 


000206 




f AAA 

6906 








69OT 








£ A « A 

6910 


017576 


AAC AAA 

005004 




6911 


A 4 ICAA 

017600 


A4 .£ A £ C 

016465 


A% 7 7Xf 

017766 


/ Al A 

6912 








6913 


a • ^ aj* 
017606 






CI) 








CI) 


017606 


A« A7AA 

012700 


A** 77A f 

027 '46 


CI) 


a • 7^ « a 
017612 


• • »"»7 4 A 

112710 


000002 


CI) 


017616 


112760 


AAAA* A 

000012 


CI) 


017624 


112760 


000005 


C 1 J 


017632 


016560 


000064 


11) 


A 4 A A 

017640 


116560 


AAAA/ A 

000060 


CI) 


017646 


105060 


000003 


CI) 


017652 


105060 


000005 


CI) 


017656 


005060 


MAAAA/ 

000006 


CI) 


A« A 

017662 


AAf A« A 

005060 


AAAA € A 

000010 


vl J 


017666 


A« HAl 

012701 


AAAA «J "% 

000012 


CI) 


017672 


005721 




CI) 








( 1 J 


017674 


AAA 1 W "» 

004737 


013674 


^ 4 \ 

CI) 


At i "J Ay, 

017700 


010110 




t A \ 








v 1 J 


017702 


A4 "%T^ tr 

012765 


AAAA « £ 

000016 


CI) 


017710 


112765 


000002 


CI) 


017716 


0127S5 


000016 


i i; 


At 77aj 

vl f 724 


a« *\i/r 

012765 


AAAAA* 

000001 


1 1 J 










A4. 7111 

017732 


AAA 717 

004737 


AA/ ^ AA 

006600 


CI) 








( 1 1 


VI r r jO 


r ID 


AAAA « A 


(i) 


017742 


001321 




(i) 








6914 








6915 


017744 


062704 


000002 


6916 


017750 


026427 


017766 


6917 


017756 


001310 




6918 


017760 


005237 


003324 


6919 


017764 


000207 





E8 
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.SBTTL TEST 2 / SEEK EOT ,B0T 

BGNTST 

TSTIO 4TST2 



SE0 0095 



T2:: 



EXIT TST 



641; 



MOV 


4TST2.TSTT0P 


•SAVE AOOR OF TEST 


CALL 


SETUP 


lINIT UNITS TSTPC 


CALL 


SETOR 


iGET 1ST ORVS. 


CALL 


RUN 


lOO TEST 


CALL 


SWAPDR 


iGET NEXT ORVS. 


BCC 


641 


iBR NO 2ND ORVS 


CALL 


SETUP 


» RE INI T UNITS TSTPC 


CALL 


RUN 


I REPEAT TEST 






j DONE 



TRAP 
.WORD 



C»EXIT 
L10015-. 



000064 



000001 
000002 
000012 
000004 



TST2: 
It: 



CLR R4 |R4-IN0EX INTO REC0R0 TABLE 

MOV RECDAT(R4).REC(R5) iGET THE REC0R0 



TUSEEK REC(R5).0R(R5) iSEEK IT 



641: 



000070 
000034 
000036 
000032 



MOV 

M0VB 

M0VB 

M0VB 

MOV 

MOVE 

CLRB 

CLRB 

CLR 

CLR 

NOV 

TST 

CALL 
MOV 

MOV 
MOVB 
MOV 
MOV 

CALL 

BIT 
BNE 



♦TRBUF.R0 

4RSCMN0.SRO 

•RSMSIZ.1CR0) 

4RSSSEK.2CR0) 

REC(R5).10 CR0) 

0R(R5).4.(R0) 

S.(RO) 

5. CR0) 

6. CR0) 
8.CR0) 
♦RSMSIZ.R1 
(RD* 

CHKSUM 
R1.CR0) 



j-->(P0INT TO) XMIT BUFF" 
l FORM COMMAND MESSAGE PA 
(THIS BIG 
I OP CODE IS SEEK 
i TO THIS RECORD 
» AND WHICH DRIVE 
j NO MODIFIER 
tN0 SNITCHES 
I NO SEQUENCE 4 
I NO BYTE COUNT 
j GET COUNT 
l PLUS FLAG ♦ BCNT 
tFOR CHECKSUM CALC 
»R0-->T0P Rl"4 OF BTTE 
t INSERT INTO PACKET 
tSET UP EXPECTATIONS: 
4RSSNSZ . SNDCNT ( R5 ) tHOU MANY TO SEND 
4RSCMND.XSFLGCR5) iEXPECT END PACK 
4RSNDSZ . XSCNT ( R5 ) i COUNT WITH THIS 
#1. .XSPKNMCR5) iEXPECT ONLY 1 PACKET 



RSVP 

46IT3.dR5 
641 



tSENO 

I AND RETURN TO SCHEDULER 
j RETRY (FLAG BYTE ERROR) 
t YES 



177777 



ADD 
CMP 
BNE 
INC 

RETURN 



♦2. R4 

RECDAT(R4),4-1. 
it 

DONE 



I POINT TO NEX1 RECORO 
i LAST ONE DONE? 
I NO -LOOP 

, YES -SET DONE FLAG 



6920 
6921 
6922 
6923 
6924 
6925 
6926 
6927 
(3) 
(3) 



017766 
017770 
017772 
017774 
017776 
020000 
020002 
020002 
020002 



000000 
000200 
000177 
000377 
000400 
177777 



104401 



RECOAT: 0. 

200 
177 
377 
400 
-1. 



ENOTST 



F8 



MISCELLANEOUS SECTIONS MACU1 30(1046) 25-JAN-84 06:33 PAGE 52- 
CZTUUT.P11 25-JAN-84 08:09 TEST 2 / SEEK EOT.BOT 



iBOT 

iBOT OTHER TRACK 
I EOT 

I EOT OTHER TRACK 
iBOT AGAIN 



SEQ 0096 



L10015: 

TRAP CiETST 



G8 



MISCELLANEOUS SECTIONS MACU1 30(1046 ) 25-JAN-84 08:33 PAGE 53 

CZTUUF.P11 25-JAN-84 08:09 TEST 3 / HIGH ACTIVITY WRITE/RE AO (512 BtTE /BLOCK MOOE) 



SEQ 0097 



6930 
6931 
6932 
6933 
6934 
6935 
(3) 
6936 
(I) 
(I) 
(1) 
(I) 
(I) 
(1) 
(I) 
CI) 
(1) 
6937 
(3) 
(3) 
6938 
6939 
6940 
6941 
6942 
6943 
6944 

:i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 



020050 
020056 
020060 
020064 
020072 
020072 
020076 
020102 
020110 
020116 
020124 
020132 
020140 
020144 
020152 
020160 
020164 
020166 
020174 
020200 

020202 
020210 
020216 
020224 
020230 
020234 
020240 
020242 
020246 
020252 
020256 
020260 
020262 



012765 
005004 
005065 
016465 

012700 
112710 
112760 
112760 
112760 
116560 
112760 
005060 
012760 
016560 
012701 
005721 
012765 
004737 
010110 

012765 
012765 
012765 
012702 
004737 
032715 
001314 
042715 
012700 
020227 
101004 
010201 
052715 



000100 

000064 

022766 

027746 
000002 
000012 
000003 
000000 
000060 
000020 
000006 
001000 
000064 
000012 

000016 
013674 



000020 
000001 
000001 
001000 
006600 
000010 

010000 
027746 
000200 



010000 



. SBTTL TEST 3 / HIGH ACTIVITY WRITE/RE AO (512 BYTE /BLOCK MOOE) 

i WRITE THEN RE AO VARYING OATA FOR ALL PHYSICALLY ADJACENT BLOCKS AROUND 
t A RECORD. GO HALF-WAY INTO REMAINING TAPE REPCAT UNTIL EOT. 



020CKK 






020004 






020004 






020004 


012737 


020050 003330 


020012 


004737 


006024 


020016 


004737 


005652 


020022 


004737 


006072 


020026 


004737 


005532 


020032 


103004 




020034 


004737 


006024 


020040 


004737 


006072 


020044 






020044 






020044 


104432 




020046 


001326 





BGNTST 

TSTID 4TST3 



T3: 



EXIT TST 



64*: 



MOV 


•TST3.TSTT0P 


iSAVE ADOR OF TEST 


CALL 


SETUP 


iINIT UNITS TSTPC 


CALL 


SETDR 


iGET 1ST DRVS. 


CALL 


RUN 


j DO TEST 


CALL 


SWAP OR 


(GET NEXT DRVS. 


BCC 


64* 


j BR NO 2ND DRVS 


CALL 


SETUP 


» RE INI T UNITS TSTPC 


CALL 


RUN 


(REPEAT TEST 






tOONE 



TRAP 
.WORD 



C*EXIT 
L10016- 



000066 
0C0072 



000001 
000002 
000003 
000004 
000005 

000010 
000012 



000070 



000034 
000036 
000032 



TST3: 
II: 



MOV 
CLR 
CLR 
MOV 
TUWRIT 



♦100.TMP(R5) 
R4 

REC(R5) 



tINIT TO HALF OF REMAINING 
(FOR INDEX INTO OATA TABLE 
(START AT RECORD 0 
TST3PT(R4),PATTEN(R5) (GET DATA 
PATTEN(R5).REC(R5).»512..DR(R5).40 



721: 



64$: 



MOV 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
CLR 
MOV 
MOV 
MOV 
TST 
MOV 
CALL 
MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

BIT 

BNE 

BIC 

MOV 

CMP 

BHI 

MOV 

BIS 



♦TRBUF.RO 
4RSCMND.SR0 
4RSMSIZ, KRO) 
•RSSUR.2CR0) 
♦0.3.CR0) 
DR(R5).4.(R0) 
#020.5. (RO) 
6.CR0) 
#512. ,6.(R0) 
RECCRS).IO.(RO) 
•RSMSIZ.R1 
(Rl)» 



(MAKE COMMAND PACKET: 
(COMMAND FLAG 
(THIS SIZE 

(INSERT OP CODE-WRITE 
(VERIFY (1 OR 0) 
(DRIVE # 

(MAINTENANCE MOOE SWITCH 
(NO SEQUENCE « 
(TOTAL COUNT TO WRITE 
(AT RECORD N 
( T HE PACKET SIZE PLUS»2 
((FLAG AND COUNT) INTO R 



#RSSNSZ.SNDCNT(R5) (LOAD THE SIZE TO 
CHKSUM (RO --> Rl-COUNT 

Rl.(RO) (PUT CHKSUM IN PACKET 

(SET UP EXPECTATIONS: 
#RSC0NT.XSFLG(R5) (THE FLAG 



#1.XSCNT(R5) 
♦l.XSPKNM(RS) 
#512. ,R2 
RSVP 

•8IT3.8R5 
72» 

♦BIT12.8R5 

♦TRBUF.RO 

R2.4128. 

65* 

R2.R1 

♦BIT12.BR5 



(THE COUNT 
(THE « PACKETS EXPECTED 

(GET 4 OF DATA B 
(SEND (AND RETURN TO SCm 

(Flag byte error? 

(YES 

(FLAG FOR LAST PACKET 

(POINT TO TOP OF BUFFER 

(START OATA PACKET(S) 

(•512. > 126.! 

(4512. < 128. 

(SO LAST PACKET NOW 



H8 



MISCELLANEOUS SECTIONS NACYU 30(1046) 



CZTUUF. 


Pll 25-JAN-84 


06:09 




(1) 


VCvCVv 


AAA4AP 






(1) 


vcVc fw 


Al P7A1 


000200 




(1) 


n pap 74 


1 1 Al AA 


000001 




CI) 


vcvjW 


UXVXww 






(1) 




1 1 P71 A 
lie r XV 


000001 




(1) 


VCVJVO 


AAS7PA 

vw J r cv 






(1) 


vCVJiv 


1 1 *SPA 
X lOJcv 


000072 




(1) 


OP0314 


005503 






(1) 


wCVJ iv 


101374 






(1) 


vcvvcv 


G1P700 

VIC » W 


027746 




(1) 


APA3P4 


1 16001 

X XwW A- 


000001 




(1) 


vCVJJV 


04P701 


177400 




(1) 


0P0334 


A10165 


000070 




(1) 




VVC » w J 


000004 


000070 


(1) 


0P0346 

WC W«J^W 


06P701 

VVC 1 Vi 


000002 




CI) 


VCW -J^<L 


004737 


013674 




CD 


020356 


110120 






(1) 


0P0360 

VC w JUV 


000301 






(1) 


ApAXAp 

wC v«JwC 


1101PO 

A a w acw 






(1) 


020364 


032715 


010000 




CI) 


020370 


001412 






CI) 


020372 


012765 


000002 


000034 


CI) 


020400 


012765 


000016 


000036 


CI) 




012 765 


000001 


000032 


CI) 


0PO414 


000411 






CI) 


0PO416 


0 IP 765 


000020 


000034 


CD 


0PO4P4 


0 IP 765 

ViC • V— ' 


000001 


000036 


CD 


OPA45P 


A1P7AS 

vlC fW 


000001 


000032 


CD 
CD 


WCW^ ^w 


004737 


006600 




CD 


OPA444 




000010 




CD 


APA4SA 


vvlclv 






(D 


0P04SP 


OSP715 


002000 




CD 


020456 


0010C4 

ww xwv ~ 






CD 


020460 


16P70P 

IvC » VC 


000200 




CD 


020464 


101P70 






CD 


0P046& 

WfcW WW 


OOOSOP 






CD 


0PC470 








C2) 










C2) 










C2) 


020470 


0 IP 700 


027746 




C2) 


020474 


11P710 


000002 




C2) 


020500 


112760 


000012 


000001 


C2) 


020506 


11P760 


000002 


000002 


C2) 


020514 


016560 


000064 


000012 


C2) 


020522 


116560 


000060 


000004 


C2) 


020530 


105060 

AW^WWV 


000003 




(2) 


020534 


105715 






C2) 


020536 


100002 






(2) 


020540 


105260 


000003 




(2) 


020544 


012760 


001000 


000010 


C2) 


020552 


112760 


000020 


000005 


(2) 


020560 


005060 


000006 




(2) 


020564 


012701 


000012 




(2) 


020570 


005721 






(2) 


020572 


012765 


000016 


0000 7 0 



25 -JAN -84 08:33 PAGE 53 1 
TEST 3 / HIGH ACTIVITY WRITE /READ (512 BYTE /BLOCK M00E) 



65$: 
66$: 



SEQ 0098 



671: 



66* : 
691: 



70$: 
76$: 



77$: 



BR 


66 1 


lUSE REMAINING COUNT 


MOV 


♦128. ,R1 


tUSE 126. BYTES 


MOVB 


R1.KR0V 


iCOPY COUNT TO BUFFER 


MOV 


R1.R3 


IR3-C0UNTER TO LOAD BUFF 


M0VB 


♦RSDATA.8R0 


iFLAG FIRST 


TST 


(R0)» 


tSKIP COUNT 


MOVB 


PATTEN(R5).(R0)» i INSERT OATA 


DEC 


R3 


iMORE? 


BMI 


67$ 


(YES 


MOV 


♦TRBUF.R0 


i-->T0P AGAIN 


M0VB 


1(R0),R1 


iGET COUNT 


BIC 


•1^7400. Rl 


(ZERO SIGN EXTEND 


MOV 


R1.SN0CNTCR5) 


j HOW MANY TO SEND PLUS 


AOG 


#4.SNDCNT(R5) 


I FLAG. COUNT. CHK SUM 


ADD 


♦2.R1 


i COMPENSATE FOR FLAG ♦ C 


CALL 


CHKSUM 


;F0R CHECKSUM CALC. 


M0VB 


R1.(R0)» 


: CMKSUM INTO PACKET 


SWAB 


Rl 


{EVEN ON AN ODD 


M0VB 


R1.(R0)» 


jBYTE BOUNDARY 


BIT 


•BI712.SR5 


j LAST DATA PACKET? 


BEQ 


66$ 


(NO 


MOV 


#RSEND.XSFLG(R5) i YES -EXPECT ■ END' 


MOV 


#RSN0SZ.XSCNT(R5) tOF THIS SIZE 


MOV 


•l.XSPKNN(RS) 


(AND 1 PACKET 


BR 


69$ 


j SEND 


MOV 


#RSC0NT.XSFLG(R5) {(NOT LAST). EXPECT 


MOV 


♦l.XSCNT(RS) 


i AND 1 BYTE 


MOV 


#1.XSPKNN(R5) 


i AND 1 PACKET 


CALL 


RSVP 


; SEND PACKET 






iAND RETURN TO SCHEDULER 


BIT 


•8IT3.SR5 


{FLAG BYTE RETRY? 


BNE 


72$ 


« YES 


BIT 


♦BIT10.8R5 


{RETRY DATA ERROR? 


BNE 


70$ 


:YES 


SUB 


♦126..R2 


;N0. MORE OATA TO SEND? 


BMI 


64$ 


:YES 


BR 


71$ 


>N0 


TURTRY 


REC(R5).#512..DR(R5) ; RETRY MERE 



MOV 


4TRBUF.R0 


(FORM CMND PACK: 


M0VB 


•RSCMND.8R0 


t MESSAGE PACK TYPE 


M0VB 


♦RSMSIZ.KRO) 


i THIS BIG 


M0VB 


4RSSR0.2CR0) 


« OP CODE -READ 


MOV 


RECCRS).IO.(RO) (THIS REC0R0 


MOVB 


DR(R5).4.(R0) 


S THIS DRIVE 


CLRB 


3(R0) 


{PRESET NORM THRESHOLD 


TSTB 


8R5 


(REDUCED? 


BPL 


77$ 


{NO 


INCB 


3(R0) 


{YES -CHANGE THRESHOtD 


MOV 


#512.. 8. (R0) 


{« BYTES DESIRED 


MOVB 


#020.5. (R0) 


(MAINTENANCE MODE 


CLR 


6.(R0) 


(NO SEQUENCE # 


MOV 


♦RSMSIZ.R1 


(SIZE OF PACKET 


TST 


(Rl)» 


(PLUS FLAG. COUNT INTO Rl 


MOV 


#RSSNSZ.SNDCNT(R5) {SET UP SIZE TO SEND 



18 



MISCELLANEOUS SECTIONS MACU1 30(1046) 



CZTUUF , 


Pll 25-JAN-84 






(2) 










C 2) 


020600 


004737 


Q 1 3© r 4 




(2 J 


020604 


010110 






(2) 










(2) 


020606 


012701 






(2) 










/o\ 
(c/ 


020612 


012703 


AAAAIA 




(2 / 


020616 


060503 






12 ) 


020620 


005002 






(2 / 


020622 


005202 






(2 / 


020624 


012723 


AAAA/M 
VAAAA/1 




»>2 / 


020650 


012723 






(2 / 


020634 


162701 






V 2 / 


020640 


101401 






V 2 J 


020642 


000767 






v 2 J 


020644 


005202 






1 2 J 


020646 


010265 


WW5c 




I 2 J 


020652 


012723 






V 2 ) 


020656 


012713 


AAAAI A 




V 2 J 










\ <d ) 


020662 


004737 


AAiLTAA 

uuoouu 




f ^ > 
v 2 J 










C 2 / 












02067t> 








I 1 / 










1 1 / 










l u 


020676 


012700 


AO? 




(1/ 


020702 


112710 


OUOUU2 




1 1 / 


020706 


112760 




WUWl 


1 1 j 


020714 


112760 


AAAAAO 


UVAAA/c 


11/ 


020722 


016560 






11/ 


020730 


116560 


A/VVWA 


AAAAAA 


11/ 


020736 


112760 


AAAAAA 

uuuuuo 


AAAAA V 


11/ 


020744 


012760 


VK/IOOU 


AAAAI A 


11/ 


020752 


112760 


AAAAAA 

000020 


AAAAAC 


I 1 / 


020760 


005060 


vXXXK/o 




11/ 


020764 


012701 


AAAAt O 

UWQ12 




11/ 


020770 


005721 






\ 1 / 


020772 


012765 


UOOUlO 


AAAA7A 

WW fsj 


11/ 


021000 


004737 


A1 T^L 71 




f i ^ 
11/ 


021004 


010110 






11/ 










11/ 


021006 


012701 


AA« AAA 

UUIUUU 




11/ 










viz 


021012 


012703 






11/ 


021016 


060503 






VI/ 


021020 


005002 






11/ 


02102? 


005202 






\ 1 / 


021024 


012723 


AAAAA 1 

WWwl 




f 1 ) 


021030 


012723 


A00P04 




(1) 


021034 


162701 


000200 




(1) 


021040 


101401 






(1) 


021042 


000767 






CI) 


021044 


005202 






(1) 


021046 


010265 


000032 




CI) 


021052 


012/23 


000002 





25 JAN -84 06:33 PAGE 53-2 
TEST 3 / HIGH ACTIVITY WRITE/READ (512 BYTE/BLOCK MODE ) 



SEQ 0099 



73*! 



751: 







jrUWI Lntt^J^ H1"UUUWI 


MOW 


D1 font 




MOV 

nuv 


tJlc . .HI 










nuv 






Ann 


DC QI 




n q 


DO 


i PRESET 


INC 


R2 


i# PACKETS EXPECTED 


NOV 


#ftS0ATA,(R3)» 


iLOAO XSFLG 


NOV 


#132 *CR3)» 


i AND EXPECT COUNT 


SUB 


•128.. Rl 


iNEG RESULT LAST TIME 


BL0S 


75* 


jLAST TIME! 


BR 


731 


.MORE TO 00 


INC 


R2 


lAOO ONE FOR END PACK 


NOV 


R2.XSPKNM(R5) 


tSAVE • PACKETS TO EXPEC 


NOV 


•RSEND.CR3V 


tEXPECT AN END 


H0V 


•RSN0SZ.CR3) 


»TMIS BIG-14. BYTES 


CALL 


RSVP 


(SEND 



AND RETURN TO SCHEDULER 



TURF AD RECCR5).«12..DRCR5).#0 



82* : 



78* : 



60*: 



MOV 


•TRBUT.RO 


» FORM CMND PACK: 


HOtfB 


•RSCMND.8R0 


.MESSAGE PACK TYPE 


M0VB 


•RSMSI2.KR0) 


.THIS BIG 


M0VB 


•RSSR0.2(R0) 


5 OP CODE IS READ 


MOV 


REC(R5).10.(R0) 


-.THIS RECORD 


M0VB 


ORCRS).A.(RO) 


.THIS DRIVE 


M0VB 


•0.3.CR0) 


.VERIFY 


MOV 


•512.. 8. (R0) 


. TOTAL BYTES TO RE AO 


M0VB 


•020.5. (R0) 


.MAINTENANCE M00E 


CLR 


6.CR0) 


:N0 SEQUENCE • 


MOV 


fRSMSIZ.Rl 


.GET SIZE OF PACKET 


TST 


CR1)» 


.♦2 FOR CHECKSUM 


MOV 


•RSSNSZ.SNDCNTCR5) :SIZE TO SEND 


CALL 


CHKSUM 


.FORM CHECKSUM Rl -COUNT 


MOV 


Rl.(RO) 


.INSERT CHECKSUM 


MOV 


•512.. Rl 


.SET EXPECTATION 




;CALC ♦ OF DATA PACKETS 


MOV 


•XSFLG. R3 


.GET OFFSET 


ADD 


R5.R3 


.ABS. ADOR. OF XSFLG 


CLR 


R2 


.PRESET AS NONE 


INC 


R2 


.• PACKETS EXPECTED 


MOV 


#RSDATA.(R3)» 


.LOAD XSFLG 


MOV 


•132.. (R3). 


.AND EXPECTED COUNT 


SUB 


•126.. Rl 


tNEG RESULT LAST TIME 


BL0S 


60* 


.LAST TIME 


BR 


76* 


.MORE TO 00 


INC 


R2 


.ADD ONE FOR END PACK 


MOV 


R2.XSPKNM(R5) 


.SAVE • PACKETS TO EXPEC 


MOV 


•RSEND, (R3)* 


.EXPECT AN END ALSO. . . 



J8 



MISCELLANEOUS SECTIONS MACUl 30(1046) 25-JAN-64 08:33 PAGE 53-3 

CZTUUF.P11 25- JAN 64 06:09 TEST 3 / HIGH ACTIVITY WRITE /RE AO (512 BYTE/BLOCK MOOE) 



SEQ 0100 



(1) 


021056 


012715 


AAAA % £~ 

000016 


(1) 


021062 


004757 


006600 


( 1 ) 

(1) 


021066 


032715 


002010 


(1) 


021072 


AA 4 C AA 

001500 




( 1 ) 


021074 






(2) 








(2) 








(2 ) 


A A % ATi 

021074 


012700 


A577J£. 

0e 7 746 


( 2 ; 


A^ • 4 AA 

021100 


112710 


AAAAA^ 
000002 


12 i 


021104 


112760 


AAAA1 9 

OOOOle 




021112 


112760 


OOOOOe 


/ a \ 
(2) 


A<\i | AA 

021120 


016560 


OOOOM 


(2) 


021126 


116560 


AAAA/A 

OOOOoO 


(2 i 


021134 


« AKAXA 

103000 


AAAAAl 

OOUOU3 


' ^ ^ 


Oell*0 


1 AC 71C 

IOD r ID 




( 2 J 


A*S 114^ 

021142 


« AAAAO 




1 2 i 


AOI 1 A A 

0ell4# 


lODeOO 


AAAAAl 

UWW3 


v 2 i 


A"* « « CA 

0211DO 


A« <57|LA 

Ole roO 


AA 4 AAA 

UOIOOO 


( 2 i 


A A 4 « K f 

021156 


« « a -7* a 
lie f ©O 


AAAA "VA 

OOOOeO 


(2) 


a-* « « * * 
021164 


OOdOoO 


OOOOOO 


f A \ 

(2 J 


02 1 1 70 


A1 ^ 7A1 

Ole 'Ol 


AAAA « O 

OOOOle 


(2 i 


02 1 1 74 


OO D rel 






A^l 1 "7#L 

Oe 1 1 f © 


A1 0 

Ole rod 


AAAA \ £L 
OOOOIO 


v 2 J 








I e ) 


021204 


AA* 

OlM f 5 r 


Ol OO f * 


v e J 


021210 


A1 A1 1 
OlOllO 












v e i 


A A 4 -\ « A 

021212 


At A7A1 

012701 


AA1 AAA 
OOIOOO 


v 2 i 








(2) 


A A < X 

021216 


012703 


AAAA tJ 

OOOO 34 


I e ) 


021222 


060503 




lei 


a^« ooi 
Oelee4 


00500e 




lei 


021226 


005202 






A A * <)|a 

021230 


012723 


AAAAA 1 
000001 


lei 


021234 


012723 


AAA ^Ai 

000204 


(2) 


021240 


162701 


AAA AAA 

000200 


vc; 


A A • <\J« 

021244 


101401 




V e J 


U21e4o 


AAA7#7 

000767 




lei 


AO* OCA 

OeleDO 


AAC^AO 

OODeOe 




lei 


Ant o^o 
Oe le3e 


A1 A1£C 

OlOeOD 


AAAAtO 

OOOO 3c 


lei 


A - ^ « 

021256 


012723 


AAAAA a 
000002 


lei 


A^« -5 

Oeleoe 


Al 571 * 

012713 


AAAA 1 e 

OOOO lo 


lei 








lei 


A^l A^» *■ 


AAJ 717 


OOooOO 


lei 








lei 










wc lC ■ O 


Vn>c 


AAAAA A 


6947 


021502 


005764 


022766 


6946 


021506 


001402 




6949 


02151C 


000157 


020064 


6950 


02151% 


005004 




6951 


021516 


062765 


000200 


6952 


021524 


052765 


001000 


6953 


021552 


001002 




6954 


021554 


000157 


020064 



611: 



66* : 



000001 
000002 
000012 
000004 



000010 
000005 



000070 



671: 



831: 



85t: 



MOV 
CALL 

BIT 
BEQ 
TURTRY 



MOV 

M0VB 

M0VB 

MOVB 

MOV 

MOVB 

CLRB 

TSTB 

BPL 

INCB 

MOV 

MOVB 

CLR 

MOV 

TST 

MOV 

CALL 
MOV 

MOV 

MOV 

A00 

CLR 

INC 

MOV 

MOV 

SUB 

BL0S 

BR 

INC 

MOV 

MOV 

MOV 

CALL 



«RSN0SZ.(R3) 
RSVP 



:THIS BIG-14. BYTES 
(SENO 

lANO RETURN TO SCHEDULER 
«6IT10!BIT3.8R5 iRETRr? 
79* iNO. 
REC(R5).#512. .0R(R5) |YES 



4TRBUF.R0 

4RSCMN0 , 8R0 

4RSMSIZ.KR0) 

#RSSR0.2(R0) 

REC(RS).10.(R0) 

0R(R5).4.(R0) 

5(R0) 

8R5 

67* 

5CR0) 

#512.. 8. (R0) 
•020.5. (R0) 
6.CR0) 
4RSMSIZ.R1 

(Rl)< 



1 FORM CMN0 PACK: 
1 MESSAGE PACK TYPE 
(THIS BIG 
1 OP CODE -READ 
.THIS RECORO 
{THIS 0RIVE 

(PRESET NORM THRESHOLD 
1 REDUCED? 
I NO 

i YES -CHANGE THRESHOLD 
I* BYTES DESIRED 
i MAINTENANCE MOOE 
(NO SEQUENCE 4 
;SIZE OF PACKET 
(PLUS FLAG»COUNT INTO Rl 



4RSSNSZ . SNDCNT ( R5 ) (SET UP SIZE TO SEND 



CHKSUM 
Rl.(RO) 

#512.. Rl 

♦XSFLG.R5 

R5.R5 

R2 

R2 

#RSDATA,(R5)» 

#152.. (R5). 

#126.. Rl 

85* 

85* 

R2 

R2.XSPKNM(R5) 

#RSEND.(R3). 

#RSNDSZ.(R5) 

RSVP 



(FORM CHECKSUM Rl-COUNT 
i INSERT IN PACKET 

iSET EXPECTATION 
jCALC # OF OATA PACKETS 
(OFFSET OF FLAG 
(ABS. AOOR. OF XSFLG 
(PRESET 

(# PACKETS EXPECTED 

;L0AO XSFLG 

;AND EXPECT COUNT 

sNEG RESULT LAST TIME 

(LAST TIME! 

(MORE TO DO 

(ADO ONE FOR END PACK 

(SAVE ♦ PACKETS TO EXPEC 

(EXPECT AN END 

(THIS BIG-14. BYTES 

(SEND 

(AND RETURN TO SCHEDULER 



000064 
000064 



2»: 



ADO 


#2.R4 


(POINT TO NEXT DATA 


TST 


TST5PTCR4) 


(END? 


BEQ 


2* 


I YES 


JMP 


1* 


(NO-WRITE, READ NEW DATA 


CLR 


R4 


(POINT TO FIRST DATA 


ADD 


#200.REC(R5) 


(BUT NOW USE ADJACENT RECORO 


BIT 
BNE 


#1000.REC(R5) 


(ALL ADJACENT RECORDS DONE? 


3* 


lYES 


JMP 


l» 


(NO -WRITE. READ AT NEW RECORD 



I<8 



MISCELLANEOUS SECTIONS HACY11 30(1046) 25-JAN-84 06:33 PAGE 53-4 

C7TUUF.PH 25-JAN-64 08:09 TEST 5 / HIGH ACTIVITY URITE/REAO (512 BrTE/BLOCK MOOE) 



SEO 0101 



6955 021540 162765 001000 000064 

6956 021546 066565 000066 000064 

6957 021554 006265 000066 
6956 021560 105402 

6959 021562 000157 020064 

6960 021566 005257 005524 

6961 021572 000207 

6962 021574 
(5) 021574 

(5) 021574 104401 
6965 



3* 



4$: 



SUB 
ADO 
ASP. 
BCS 
JMP 
INC 

RETURN 
ENOTST 



♦1000.REC(R5) 

TMP(R5).REC(R5) 

TMP(R5) 

4$ 

II 

DONE 



I RESTORE TO NEXT RECORD 
j HALF INTO REST Of TAPE 
I HALF OF HALF FOR NEXT TIME 
j DONE? 
i NO 

i YES-SET FLAG 



L10016: 



TRAP 



CIETST 



L8 



MISCELLANEOUS SECTIONS MACU1 30(1046) 



CZTUUF. 


Pll 25 JAN 84 


08:09 




6965 










6966 










6967 










6968 










6969 










6970 


AOI X7A 








(3) 


fOI X7A 








6971 


aoi X7A 








(1) 


API X7A 


A1 P7X7 
Ulc 'Of 


021442 


003330 


(1) 




AAA 7X7 
W* 'Of 


006024 




(1) 


UCl*lV 


AAA 7X7 
W* 'Of 


005652 




CI) 


AO 1411 


AAA 7X7 

W* r O r 


006072 




(1) 




AAA7X7 
vv* » o » 


005532 




(1) 


wife* 


1 OX AAA 






(1) 


rtoi aoa 

Ucl*CD 


AAA 7X7 

W* « O r 


006024 




CI) 


AP1 AXP 


AAA7X7 


006072 




(1) 


api axa 








6972 










(3) 


API 4% 


1AA43P 






(3) 


API AAA 


AA1 XAA 






6973 










6974 










6975 


api aap 


A1P7AS 

VIC » OJ 


000400 


000066 


6976 




AASAAA 






0977 


API ASP 


AASAAS 


000064 




6976 


API ASA 


A1 AAAS 


022766 


000072 


6979 


API AAA 








(1) 


API AAA 
Vcl*0* 


A1 P7AA 
Ulc ' W 


027746 




CI) 


API A7A 
vcl* f v 


1 1 P71 A 
11C r IV 


000002 




(1) 


AP1 A7A 


1 1 P7AA 
11c rf>V 


000012 


000001 


(1) 


API SAP 
VclPvc 


1 1 P7AA 
11c fOV 


000003 


000002 


(1) 


AP1S1 A 
vClJlV 


1 1 P7AA 
11c rf>V 


000200 


000003 


CI) 


AP1 Si A 
vciJio 


1 1 ASAA 
11030V 


000060 


000004 


CI) 


API SPA 
UClJC* 


1 1 P7AA 
lie fw 


000020 


000005 


CI) 


API SXP 


AASAAA 


000006 




CI) 


API SXA 


A1P7AA 
VIC » Ov 


000200 


000010 


CI) 


API SAA 


A1 ASAA 


000064 


000012 


CI) 


AP1SSP 


A1 P7A1 
VIC 'VI 


000012 




CI) 


AP1 SSA 


AAS7P1 
W J ' CI 






CI) 


API SAA 

VClJvv 


A1P7AS 
VIC ' Oj 


000016 


000070 


CI) 


API SAA 


AAA7X7 


013674 




CI) 


AP1S7P 

vC IJ'C 


A1 A1 1 A 

VlUllV 






CI) 










CI) 


0P1S7A 


A1P7AS 

VIC fOJ 


000020 


000034 


CI) 


OP 1 AAP 

VClvVC 


01P7AS 

VIC f 


000001 


000036 


CI) 


AP1 A1A 

VC IDlw 


A1 P7AS 
VIC i Oj 


000001 


000032 


CI) 


OP 161 A 

wC Ivlu 


01P70P 

VIC f VC 


000200 




CI) 


021622 


004737 


006600 




CI) 


021626 


032715 


000010 




CD 


021632 


001314 






CI) 


021634 


042715 


010000 




CI) 


021640 


012700 


027746 




CI) 


021644 


020227 


000200 




CI) 


021650 


101004 






CI) 


0216S2 


010201 






CI) 


0216S4 


052715 


010000 





25 JAN-84 08:33 PAGE 53-5 
TEST 4 / HIGH ACTIVITY WRITE /RE AO (128 BYTE /BLOCK MODE) 

. SBTTL TEST 4 / HIGH ACTIVITY WRITE/READ (128 BYTE/BLOCK MODE) 

i WRITE THEN READ VARYING 0ATA FOR ALL PHYSICALLY ADJACENT BLOCKS AROUND 
; A RECORD. GO HALF-WAY INTO REMAINING TAPE REPEAT UNTIL EOT. 



SEQ 0102 



BGNTST 

TSTID 4TST4 



T4: : 



EXIT TST 



641: 



MOV 


♦TST4.TSTT0P 


;SAVE A00R OF TEST 


CALL 


SETUP 


lINIT UNITS TSTPC 


CALL 


SETDR 


|G£T 1ST DRVS. 


CALL 


RUN 


iDO TEST 


CALL 


SWAPDR 


j GET NEXT DRVS. 


BCC 


64* 


i BR NO 2ND DRVS 


CALL 


SETUP 


j RE INI T UNITS TSTPC 


CALL 


RUN 


t REPEAT TEST 






tDONE 



TRAP 
.WORD 



C*EXIT 
L10017 



TST4: 
It: 



MOV 
CLR 
CLR 
MOV 
TUWRIT 



♦400,THP(R5) 
R4 

RECCR5) 



lINIT TO HALF OF REMAINING 
»F0R INDEX INTO DATA TABLE 
I START AT RECORD 0 
TST3PT(R4),PATTEN(R5) {GET DATA 
PATTEN(R5),REC(R5).4128..DR(R5).4eiT7 



721 i 



641: 



MOV 
MOVB 
M0VB 
MOVB 
MOVB 
MOVB 
MOVB 
CLR 
MOV 
MOV 
MOV 
TST 
MOV 
CALL 
MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

BIT 

BNE 

BIC 

MOV 

CMP 

BHI 

MOV 

BIS 



•TRBUF.RO 
4RSCMND.SR0 
♦RSMSIZ.1CR0) 
*RSSWR.2(R0) 
#BIT7.3.(R0) 
DR(R5).4.(R0) 
#020.5. (RO) 
6.(R0) 

♦128.. 8. (RO) 
REC(R5).10.(R0) 
4RSMSIZ.R1 
(Rl) 



jMAKE COMMAND PACKET: 
; COMMAND FLAG 
I THIS SIZE 

t INSERT OP CODE-WRITE 
j VERIFY (1 OR 0) 
tDRIVE * 

j MAINTENANCE MODE SWITCH 
;N0 SEQUENCE • 
: TOTAL COUNT TO WRITE 
i AT RECORD N 
j THE PACKET SIZE PLUS»2 
(FLAG AND COUNT) INTO R 



•RSSNSZ.SNDCNT(RS) {LOAD THE SIZE TO S 
CHKSUM jRO --> Rl -COUNT 

Rl.(RO) {PUT CHKSUM IN PACKET 

:SET UP EXPECTATIONS: 
«RSC0NT.XSFLG(R5) ; THE FLAG 



#1.XSCNT(R5) 
♦l.XSPKNM(R5) 
»128..R2 
RSVP 

♦BIT3.8R5 
721 

•8IT12.8R5 
♦TRBUF.RO 
R2.4128. 
65 1 
R2.R1 

4BIT12.8R5 



;THE COUNT 
{THE 4 PACKETS EXPECTED 

;GET 4 OF DATA B 
{SEND (AND RETURN TO SCH 
{FLAG BYTE ERROR? 
{YES 

{FLAG FOR LAST PACKET 

{POINT TO TOP OF BUFFER 

{START OATA PACKET(S) 

{4128. > 128.! 

{ 4128. < 128. 

{SO LAST PACKET NOW 



M8 

MISCELLANEOUS SECTIONS MACY11 30(1046) 25-JAN-84 08:33 PAGE 53-6 
CZTUUT.Pll 25-JAN-64 08:09 TEST 4 / HIGH ACTIVITY WRITE /READ (128 



CI) 


021660 


000402 








BR 


CI) 


021662 


012701 


000200 




651 : 


MOV 


[ 1 ) 


021666 


110160 


000001 




661 : 


M0VB 


CI) 


021672 


010103 








MOV 


CI) 


021674 


112710 


000001 






MOVB 


;i) 


021700 


005720 








TST 


[ i) 


021702 


116520 


000072 




^ 1 A 

67$ : 


MOVB 


! 1) 


021706 


005303 








DEC 


! 1) 


021710 


101374 








out 

BHI 


'1) 


021712 


012700 


027746 






MOV 


ri) 


021716 


116001 


000001 






MOVB 


! 1) 


021722 


042701 


177400 






BIC 


[ 1) 


021726 


/\ a /\ a ^ a? 

010165 


aaaa^ a 

000070 






MOV 




021732 


062765 


000004 


000070 




AAA 

MOO 




021740 


A^ '"i A a 

062701 


/V/VAAA ■*> 

000002 






Ann 




021744 


aaa in 
004737 


A1 1/ lit 

013674 






CALL 


> i) 


A^4 

021750 


« t A4 OA 

110120 








MUVd 




A ^ 4 If 

021752 


000301 








bWAo 


1 1) 


A<\t TCI 

021754 


a a A« A/\ 

110120 








MUVd 


i 1 ) 


021756 


At Al « C 

032715 


A1 AAAi\ 

C 10000 






BIT 


:i) 


021762 


001412 








BEQ 


:d 


021764 


012765 


000002 


000034 




MOV 


> i) 


A"% 4 TJ<\ 

021772 


012765 


AAAA 4 £. 

000016 


000036 




MAU 

MOV 




022000 


A a AT^C 

012765 


AAAAA< 

000001 


000032 




MOW 

MUV 


» l ) 


022006 


/\/VA A a a 

000411 








on 
BR 


l) 


022010 


012765 


AAAAAA 

000020 


AAAAl A 

000034 


661 : 


MOV 


p 4 *\ 


a ^^a * ^ 
022016 


012765 


AAAAA a 

000001 


000036 




MOV 


' 4 \ 
» 1 ) 


022024 


012765 


AAAAA 4 

000001 


000032 




MOV 


' 4 ^ 

:n 


022032 


004737 


006600 




691: 


/*Al ■ 

CALL 


. i > 


022036 


032715 


AAAAt A 

000010 






BIT 


:d 


022042 


001210 








BNE 


i 1) 


022044 


032715 


AAAAAA 

002000 






ATT 

BIT 


T 4 N 


022050 


0010O4 








our 

BNE 


. 1 ) 


022052 


162702 


000200 








1 ) 


022056 


101270 








our 


, 1 J 


022060 


000502 








BR 


. 1 ) 


022062 








70* : 


Tl CTPV 


2 J 


022062 


012700 


027746 




-J* a _ 

761 : 


|AAli 

MOV 


2 J 


022066 


4 4 **T4 

112710 


AAAAAA 

000002 






nuvo 




022072 


a a A 

112760 


000012 


AAAAAI 

000001 




MOVB 


r o ^ 


AOOI AA 

022100 


a a A 

112760 


000002 


000002 




novo 


' o ^ 


O«?210o 


016560 


AAAAZ A 

000064 


AAAAl -\ 

000012 




Mnw 
MOV 


c J 


022114 


4 4 f C£ A 

116560 


0000r0 


AAAAA4 

000004 




MAWQ 

novo 


. 2 J 


AAA* 

022122 


a AgAZ A 

105060 


AAAA /%. V 

OOOC03 






^1 oo 
CLHo 
















'2) 


022130 


100002 








BPL 


:2) 


022132 


105260 


000003 






INCB 


:2) 


022136 


012760 


000200 


000010 


77$: 


nov 


:2) 


022144 


112760 


000020 


000005 




MOVB 


:2) 


022152 


005060 


000006 






CLR 


23 


022156 


012701 


000012 






MOV 


:2) 


022162 


005721 








TST 


:2) 


022164 


012765 


000016 


000070 




MOV 



CK MODE) 



SEQ 0103 



661 

♦126.. Rl 
R1.KR0) 
R1.R3 

4RS0ATA.8RO 

(R0)» 

PATTENCR5).(R0)» 
R3 
67$ 

♦TR6UF.R0 
1CR0).R1 
♦177400, Rl 
R1.SN0CNTCR5) 
♦4.SN0CNTCR5) 
♦2.R1 
CHKSUM 
R1.(R0)» 
Rl 

R1.CR0)* 
♦BIT12.flR5 
68$ 

♦RSEN0 . XSFLGC R5 ) 



i USE REMAINING COUNT 
i USE 126. BYTES 
I COPY COUNT TO BUFFER 
I R3 -COUNTER TO LOAD BUFF 
j FLAG FIRST 
I SKIP COUNT 

I INSERT DATA 

i MORE? 
»YES 

i-->T0P AGAIN 
(GET COUNT 
(ZERO SIGN EXTEND 
» HOW MANY TO SEND PLUS 
l FLAG. COUNT. CHKSUM 
{COMPENSATE FOR FLAG ♦ C 
j FOR CHECKSUM CALC. 
t CHKSUM INTO PACKET 
i EVEN ON AN ODD 
j BYTE BOUNDARY 
sLAST DATA PACKET? 
I NO 

» YES -EXPECT 'END* 



♦RSNDSZ , XSCNTCR5) jOF THIS SIZE 
♦1.XSPKNMCR5) tAND 1 PACKET 
69$ tSEND 

♦RSC0NT , XSFLGC R5 ) :(N0T LAST). EXPECT 



♦l.XSCNT(RS) 
♦1 , XSPKNMC R5 ) 
RSVP 

♦BIT3.SR5 
72$ 

♦6IT10.8R5 
70$ 

♦128.. R2 
64$ 
71$ 

REC(R5).U28..DR(R5) 



jAND 1 BYTE 
i AND 1 PACKET 
iSEND PACKET 

l AND RETURN TO SCHEDULER 
;FLAG BYTE RETRY? 
:YES 

{RETRY DATA ERROR? 
:YES 

;N0. MORE DATA TO SEND? 
{YES 
{NO 

{RETRY HERE 



♦TRBUF.R0 
♦RSCMND.SRO 

♦RSMSIZ.KRO) { 

♦RSSRD.2CR0) t 

REC(R5).10.(R0) { 

DR(R5).4.(R0) { 

3CR0) { 
8R5 

77$ { 

3(R0) { 

♦128.. 8. (R0) { 

♦020.5. (R0) t 

6.TR0) { 

♦RSMSIZ.R1 { 

CR1)» S 



FORM CMND PACK: 
MESSAGE PACK TYPE 
THIS BIG 
OP CODE READ 
THIS RECORD 
THIS DRIVE 

PRESET NORM 1HRESH0LD 
REDUCED? 
NO 

YES -CHANGE THRESHOLD 
♦ BYTES DESIRED 
MAINTENANCE MODE 
NO SEQUENCE ♦ 
SIZE OF PACKET 
PLUS FLAG»COUNT INTO Rl 



♦RSSNSZ . SNDCNTC R5 ) ;SET UP SIZE TO SEND 



N8 



MISCELLANEOUS SECTIONS MACU1 30(1046) 



CZTUUF.PH 25-JAN-84 


08:09 




(2) 










(2) 


022172 


004737 


013674 




(2) 


022176 


010110 






(2) 










(2) 


022200 


012701 


000200 




(2) 










(2) 


022204 


012703 


000034 




C2) 


022210 


060503 






C2) 


022212 


005002 






(2) 


022214 


005202 






C2) 


022216 


012723 


000001 




(2) 


022222 


012723 


000204 




C2) 


022226 


162701 


000200 




(2) 


022252 


101401 






(2) 


022234 


000767 






(2) 


022236 


005202 






(2) 


022240 


010265 


000032 




(2) 


022244 


012723 






(2) 


022250 


012713 


000016 




(2) 










(2) 


0222S4 


004737 


006600 




(2) 










(2) 










6980 


022270 








(1) 










CI) 










CI) 


022270 


012700 


027746 




CI) 


022274 


112710 


000002 




CI) 


022300 


112760 


000012 


AAAAAf 

000001 


CI) 


022306 


112760 


000002 


000002 


CI) 


022314 


016560 


000064 


AAAA « 

000012 


CI) 


022322 


116560 


000060 


000004 


CI) 


022330 


112760 


000200 


AAAAAl 

000003 


CI) 


022336 


012760 


000200 


000010 


CI) 


022344 


112760 


000020 


000005 


CI) 


022352 


005060 


000006 




CI) 


022356 


012701 


000012 




CI) 


02236* 


005721 






CI) 


022364 


012765 


000016 


000070 


CI) 


022372 


004737 


013674 




CI) 


022776 


010110 






CI) 










CI) 


022400 


012701 


AAA^AA 

000200 




CI) 










CI) 


022404 


012703 


000034 




CI) 


022410 


060503 






CI) 


022412 


005002 






CI) 


022414 


005202 






CI) 


022416 


012723 


000001 




CI) 


022422 


012723 






CI) 


022426 


162701 


000200 




CI) 


022432 


101401 






CI) 


022434 


000767 






CI) 


022436 


005202 






CI) 


022440 


010265 


000032 




CI) 


022444 


012723 


000002 





25-JAN-84 08:33 PAGE 53-7 
TEST 4 / HIGH ACTIVITY WRITE/READ (128 BYTE/BLOCK MODE) 



73$: 



75$: 



CALl 


CHKSUM 


MOV 


Rl. (R0) 


MOV 


0128. t Rl 


MOV 


Avert nv 
QXSr LG ,R3 


AAA 

ADD 


R5.K3 


CLR 


K2 


INC 


R2 


MOV 


♦RSDATA.CR3)* 


nuv 


vide • • I JO J ♦ 


SUB 


4128. .Rl 


BL0S 


75$ 


BR 


73$ 


INC 


R2 


MOV 


R2.XSPKNM(RS) 


MOV 


4RSEND.(R3>» 


MOV 


4RSNDSZ.(R3) 


CALL 


RSVP 



SEQ 0104 



j FORM CHECKSUM Rl -COUNT 
t INSERT IN PACKET 

l SET EXPECTATION 
jCALC • OF DATA PACKETS 
» OFFSET OF FLAG 
lABS. A00R. OF XSFLG 
j PRESET 

i 4 PACKETS EXPECTED 

iLOAO XSFLG 

I AND EXPECT COUNT 

iNEG RESULT LAST TIME 

I LAST TIME! 

(MORE TO 00 

I ADD ONE FOR END PACK 

;SAVE 4 PACKETS TO EXPEC 

I EXPECT AN END 

I THIS BIG -14. BYTES 

i SEND 

; AND RETURN TO SCHEDULER 



TUREAD REC(R5).4128..DR(R5).4BIT7 



821: 



78$: 



80$: 



MOV 

MOVB 

MOVB 

MOVB 

MOV 

MOVB 

MOVB 

MOV 

MOVB 

CLR 

MOV 

TST 

MOV 

CALL 

MOV 

MOV 

MOV 

ADD 

CLR 

INC 

MOV 

MOV 

SUB 

BLOS 

BR 

INC 

MOV 

MOV 



4TRBUF.R0 
4RSCMN0 . 8R0 
4RSMSIZ.KR0) 
4RSSRD.2(R0) 
REC(R5).10.(R0) 
DR(R5).4.(R0) 
4BIT7.3.(R0) 
4128.. 6. (RO) 
4020.5. (RO) 
6.(R0) 
4RSMSIZ.R1 

(Rl)f i*2 FOR CHECKSUM 

4RSSNSZ.SNDCNKR5) ;SIZE TO SEND 
CHKSUM i FORM CHECKSUM Rl -COUNT 

Rl.(RO) ; INSERT CHECKSUM 



{FORM CMND PACK: 

I MESSAGE PACK TYPE 

sTHIS BIG 

i OP CODE IS READ 

; THIS RECORD 

tTHIS DRIVE 

t VERIFY 

t TOTAL BYTES TO READ 
; MAINTENANCE MODE 
j NO SEQUENCE 4 
I GET SIZE OF PACKET 



4128.. Rl 

4XSFLG.R3 j 

R5.R3 : 

R2 i 

R2 > 

4RSDATA.(R3)* i 

4132.. (R3)» j 

4128. .Rl t 
80$ 

78* : 

R2 » 

R2,XSPKNM(R5) t 

4RSEND.(R3)* i 



jSET EXPECTATION 
CALC 4 OF OATA PACKETS 
GET OFFSET 
ABS. ADDR. OF XSFLG 
PRESET AS NONE 
4 PACKETS EXPECTED 
LOAD XSFLG 
AND EXPECTED COUNT 
NEG RESULT LAST TIME 
LAST TIME 
MORE TO DO 
ADD ONE FOR END PACK 
SAVE 4 PACKETS TO EXPEC 
EXPECT AN END ALSO. . . 
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/ 1 \ 
\ k f 


022450 


012713 


000016 
www iv 


( 1 1 

( i "i 


022454 


004737 


WwW 


V 1 > 

V 1 / 


022460 


032715 


WCW & w 


( i "i 


022464 


001500 




f 1 ^ 


022466 






CP1 
It/ 








CP } 








CP) 


022466 


012700 


027746 


cp) 

V t / 


022472 


112710 


OOOOOP 


CP) 


022476 


112760 


OOOOIP 

WWWWAfc 


i p ) 


022504 


112760 


OOOOOP 

^^^WWWfc 


c p "i 


022512 


016560 


000064 

wwww^^^ 


TP ) 

V t 7 


022520 


116560 


000060 


CP) 


022526 


105060 


000003 

WWWWW*J 


V t / 


022552 


105715 




c p ) 

\ t 7 


022554 


100002 




V t / 


022556 


105260 


000003 


CP) 


022542 


012760 


000200 


V t / 


022550 


112760 


000020 


CP) 

V t / 


022556 


005060 


000006 


CP) 


022562 


012701 


OOOOIP 


CP) 


022566 


005721 




CP) 

V t / 


022570 


012765 


000016 


CP) 








CP) 


022576 


004737 


013674 

W A *^w • ~ 


CP) 


022602 


010110 




C2) 








(2) 


022604 


012701 


000200 

wwwtww 


(2) 








(2) 


022610 


012703 


000034 

wwww*^^ 


(2) 


022614 


060503 




CP) 
* t / 


022616 


005002 




(2) 


022620 


005202 




(2) 


022622 


012723 


oooooi 

VWVWW4 


(2) 


022626 


012723 


000P04 


(2) 


022632 


162701 


OOOPOO 

wwwcww 


CP) 


vctuJD 






(2) 


022640 


000767 




(2) 


022642 


005202 




C2) 


022644 


010265 


OOOOIP 


(2) 


022650 


012723 


OOOOOP 

WWWWWfc 


(2) 


022654 


012713 


000016 

wwww aw 


(2) 








(2) 
(2) 


022660 


004737 


006600 

wwwwww 


(2) 








6961 


022670 


062704 


OOOOOP 

WW«#WWfc 


6902 


022674 


005764 


022766 

Vt C> • WW 


6963 


022700 


001402 




6964 


022702 


000137 


021456 


6965 


022706 


005004 




6966 


022710 


062765 


001000 


6967 


022716 


032765 


004000 


6968 


022724 


001002 




6989 


022726 


000137 


021456 



25 JAN-84 06:33 PAGE 53-8 

TEST 4 / HIGH ACTIVITY WRITE/READ (126 BYTE /BLOCK MODE) 



SEO 0105 



611: 



661: 



000001 
000002 
000012 
000004 



000010 
000005 



000070 



671: 



631: 



651: 



000064 
000064 



21: 



ADO 
TST 
BEQ 
JMP 
CLR 
ADO 
BIT 
ONE 
JHP 



♦2.R4 

TST3PKR4) 

2% 

1* 

R4 

•1000.REC(R5) 

♦4000.RECCR5) 

31 

1» 



MOV 
CALL 

BIT 
BEQ 
TURTRY 



MOV 

M0VB 

M0VB 

M0VB 

MOV 

M0VB 

CLRB 

TSTB 

BPL 

INCB 

MOV 

M0VB 

CLR 

MOV 

TST 

MOV 

CALL 
MOV 

MOV 

MOV 

A00 

CLR 

INC 

MOV 

MOV 

SUB 

BL0S 

BR 

INC 

MOV 

MOV 

MOV 

CALL 



•RSNOSZ.(RS) 
RSVP 



I THIS BIG- 14. BYTES 
I SEND 

i AND RETURN TO SCHEDULER 
«6IT10!BIT3.0R5 i RE TRY? 
791 |N0. 
REC(R5).#128. ,DR(R5) |V£S 



4TR8UF.R0 

•RSCMND.BRO 

4RSHSIZ.KR0) 

•RSSR0.2CR0) 

REC(R3).10.(R0) 

DR(R5).4.(R0) 

3CR0) 

8R5 

671 

3(R0) 

♦128.. 8. (RO) 
•020.5. (RO) 
6.(R0) 
4RSMSIZ.R1 
(Rl). 



I FORM CMND PACK: 

I MESSAGE PACK TYPE 

I THIS BIG 

i OP CODE -READ 

i THIS RECORD 

I THIS DOIVE 

i PRESET NORM THRESHOLD 

iREDUCEO? 

• NO 

I YES -CHANGE THRESHOLD 
i# BYTES OESIREO 
I MAINTENANCE MODE 
i NO SEQUENCE • 
I SIZE OF PACKET 
I PL US FLAG*C0UNT INTO Rl 



#RSSNSZ.SNDCNT(R5) iSET UP SIZE TO SEND 



CHKSUM 
Rl.(RO) 

•128.. Rl 

•XSFLG.R3 

R5.R3 

R2 

R2 

•RSOATA.(RS)* 

•132.. (R3). 

•126.. Rl 

851 

631 

R2 

R2.XSPKNH(R5) 

•RSEND.(R3)» 

•RSNDSZ.CRS) 

RSVP 



i FORM CHECKSUM Rl -COUNT 
I INSERT IN PACKET 

iSET EXPECTATION 
iCALC • OF DATA PACKETS 
I OFFSET OF FLAG 
lABS. AOOR. OF XSFLG 
I PRE SET 

PACKETS EXPECTED 
I LOAD XSFLG 
I AND EXPECT COUNT 
i NEC RESULT LAST TIME 
I LAST TIME! 
i MORE TO DO 
, ADD ONE FOR END PACK 
iSAVE • PACKETS TO ExPEC 
I EXPECT AN END 
i THIS BIG- 14. BYTES 

I SEND 

,ANO RETURN TO SCHEDULER 



I POINT TO NEXT DATA 
I END? 
I YES 

iNO-URITE. READ NEW DATA 

iPOINT TO FIRST DATA 

I BUT NOW USE ADJACENT RECORO 

I ALL ADJACENT RECORDS DONE? 

«YES 

iNO-URITE. READ AT NEW RECORD 
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6990 


022732 


162765 


004000 


000064 


• * 

3$ : 




•4000,REC(R5) 


I RESTORE TO NEXT RECORD 


6991 


022740 


066565 


000066 


000064 




AAA 

ADD 


t i in r n \ nrr/Ac \ 

THP( R5 ) • RECC H5 ) 


uai r Tkitn nr c t nr t Anr 

lHALF INTO RE5T OF TARE 


6992 


022746 


006265 


0000t>6 






A5R 


run/ nc \ 

THPl R5 ) 


uAl C AT uAl C CAP L^wT T TA4F 

|HMLF OF HALF FOR NEXT TIME 




7 X 


1U34U«? 








ore 




I uunc r 


6994 


022754 


000137 


021456 






JMP 


11 


|N0 


6995 


022760 


005237 


003324 




41: 


INC 


DONE 


I YES -SET FLAG 


6996 


022764 


000207 








RETURN 






6997 


022766 


OOOOOO 






TST3PT: 


.WORD 


000000 




6996 


022770 


125252 








.UORO 


125252 




6999 


022772 


177777 








.WORD 


177777 




7000 


022774 


052525 








.UORO 


052525 




7001 


022776 


OOOOOO 








.UORO 


OOOOOO 





7002 
7003 

7004 023000 ENDTST 
C3) 023000 L10017: 
(3) 023000 104401 TRAP C*ETST 
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25 JAN 64 06:33 PAGE 54 
TEST 4 / HIGH ACTIVITY WRI 



ITE/REAO (126 BYTE /BLOCK MODE ) 



SEO 0107 



7007 










7006 










7009 










7010 


023002 








(3) 


023002 








7011 


023002 








(1) 


023002 


012737 


023046 


AAV V t/\ 

003330 


( 1 ) 


023010 


004737 


006024 




( 1 ) 


023014 


004737 


AAV/ P *> 

005652 




(1) 


023020 


004737 


aa^ AT - * 

006072 




( 1 ) 


023024 


aa j m 
004737 


005532 




(1) 


023030 


• AVAA4 

103004 






( 1 ) 


023032 


SVSN A TV T 

004737 


AAXAAJ 

006024 




(1) 


023036 


AAJ "T "» "T 

004737 


006072 




(1) 


023042 








7012 


023042 








^ V \ 

(3) 


023042 


• AAA •»•> 

104432 






(3) 


023044 


000724 






T A « V 

7013 










7014 










7015 


A"> |AJ X 

023046 


005O65 


AAAAV J 

000064 




7016 


A*> VAC *> 

023052 


013765 


AAlf < 


AAAAX t 


T A « T 

7017 


023060 


005065 


AAAAZ *^ 

000062 




^ A « A 

7016 


023064 


016565 


AAAAf A 

000064 


AAAA "7 "X 

000072 


7019 


023072 


005737 


AA<\ «"\ «V\ 

002220 




7020 


023076 


001403 






7021 


023100 


066565 


AAAA/A 

000060 


AAAAf A 

000072 


7022 


023106 








( 1 ) 


023106 


012700 


027746 




( 1 ) 


023112 


112710 


AAAAA "> 

000002 




( 1 ) 


023116 


112760 


AAAA« "X 

000012 


AAAAA 4 

000001 


( i ) 


023124 


112760 


000003 


AAAAA - * 

000002 


( 1 ) 


AAf 1 V*\ 

023132 


112760 


AAAAAA 

000000 


AAAAA V 

0000O3 


CI) 


A"\ V « AM 

023140 


116560 


000060 


AAAAAi 

000004 


(1) 


023146 


112760 


000020 


000005 


(1) 


023154 


005060 


000006 




11) 


a - *, v • ^ /\ 
023160 


012760 


AA« AAA 

001000 


AAAA* A 

000010 


v 1 ) 


023166 


016560 


000064 


AAAA * *\ 

000012 


\ 1 ) 


023174 


A| t7A« 

012701 


AAAA* 

000012 




\ 1 ) 


0232O0 


AAC T •>« 

005721 






V 1 ) 


A^ ViA - * 

023202 


A « "> T^ c 

012765 


AAAA« ^ 

000016 


AAAA 1A 

000070 


V 1 ) 


a*> v *> « a 
023210 


AAA "V V 1 

004737 


013674 




( 1 ) 

t % \ 


A*> V ''X « A 

029214 


010110 






KL) 
t \ \ 
V 1 ) 


029216 


A« *M/C 

012765 


AAAA*%A 

000020 


AAAA V M 

000034 


I 1 J 


925224 


012765 


AAAAA • 

000001 


AAAAf/ 

000036 


V 1 ) 




A « A««* 

012765 


AAAAA « 

000001 


AAAA V 'X 

000032 


( 1 1 






AA1 Aft/) 




(1) 


023244 


004737 


006600 




CI) 


023250 


032715 


000010 




(1) 


023254 


001314 






(1) 


023256 


042715 


010000 




(1) 


023262 


012700 


027746 




CI) 


023266 


020227 


000200 




(1) 


023272 


101004 






(1) 


023274 


010201 







. SBTTL TEST 5 / WRITE SELECTED NUMBER OF BLOCKS 
BGNTST 

TSTI0 4TST5 



T5:: 



EXIT TST 



64*: 



MOV 


•TST5.TSTT0P 


iSAVE A00R OF TEST 


CALL 


SETUP 


iINIT UNITS TSTPC 


CALL 


SETOR 


iGET 1ST 0RVS. 


CALL 


RUN 


lOO TEST 


CALL 


SUAR0R 


iGET NEXT 0RVS. 


BCC 


641 


iBR NO 2ND DRVS 


CALL 


SETUP 


iREINIT UNITS TSTPC 


CALL 


RUN 


1 REPEAT TEST 






j DONE 



TRAP 
.U0R0 



CIEXIT 
L 10020 



TST5: 
1»: 

10»: 



CLR 
MOV 
CLR 
MOV 
TST 
BEO 
ADO 
TUURIT 



RECCR5) tSTART AT REC 0 

T APLEN , TMPC R5 ) iGET THE 4 OF BLOCKS PER TRACK 
TRKCR5) |TRK(R5)-1ST OR 2ND PASS COUNTER 

RECC R5 ) . PAT TENC R5 ) tUSE RECORD NO. FOR DATA 



0RVCHK 
10 1 

0R(R5).PATTEN(R5) 

PAT TENC RS).REC(RS). 4512 
721: MOV 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
ClR 
MOV 
MOV 
NOV 
TST 
MOV 
CALL 
MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

BIT 

BNE 

BIC 

64t: MOV 
CMP 
BHI 
MOV 



i ADO OR •? 
I NO 

t YES. ADO ORIVE 
. .DRCR5).#0 
4TRBUF.R0 
4RSCMND.0H) 
4RSMSIZ. 1CR0) 
4RSSMR.2CR0) 
40.3.CR0) 
DRCR5).4.CR0) 
4020.5. CRO) 
6.CR0) 
4512.. 8. CRO) 
RECCR5).10.CR0) 
4RSMSIZ.R1 
CRD* 



ID 

I MAKE COflAND PACKET: 
I COMMAND FLAG 
i THIS SIZE 

I INSERT OP CODE-URITE 
I VERIFY CI OR 0) 
t DRIVE 4 

{MAINTENANCE MODE SWITCH 
I NO SEQUENCE 4 
l TOTAL COUNT TO WRITE 
I AT RECORD N 
i THE PACKET SIZE PLUS* 2 
I C FLAG AND COUNT) INTO R 



4RSSNSZ . SNDCNT C R5 ) iLOAO THE SIZE TO 
CHKSUM iRO --> Rl -COUNT 

R1.CR0) j PUT CHKSUM IN PACKET 

iSET UP EXPECTATIONS: 
4RSC0NT . XSFLGC R5 ) I THE FLAG 



41.XSCNTCRS) 
41.XSPKNMCR5) 
4512.. R2 
RSVP 

46IT3.8R5 
72$ 

4BIT12.8RS 

4TRBUF.R0 

R2.4126. 

651 

R2.R1 



I THE COUNT 
« THE 4 PACKETS EXPECTEO 

i GET « OF DATA B 
i SEND (AND RETURN TO SCH 
I FLAG BYTE ERROR? 
.YES 

jFLAG FOR LAST PACKET 
l POINT TO TOP OF BUFFER 
j START OATA PACKETfS) 
»4512. > 128.! 
,4512. < 128. 
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33 PAGE 54-1 

SELECTED NUMBER OF BLOCKS 



1) 


025276 


052715 


010000 




1) 


023302 


000402 






1) 


023304 


012701 


000200 




1) 


023310 


110160 


000001 




1) 


023314 


010103 






1) 


023316 


112710 


000001 




1) 


023322 


005720 






1) 


023324 


116520 


AAAA ^ A 

000072 




1) 


A A • • 1A 

023330 


005505 






1 ) 


A<\f 1 V -V 

023332 


• A 4 f f 4 

101574 






1) 


AAV* % A 

023334 


A 4 'tVAA 

012700 


a<\77j^ 

027746 




1 ) 


023340 


a a jr aa v 

116001 


AAAAAI 

000001 




1 ) 


023544 


AJ ^7AI 

042701 


4 77JAA 

1 77#00 




i ) 


023550 


A a ai <tc 

010165 


AAAA7A 

000070 




i ) 


025554 


/Vat ^VC 

062765 


AAAAAi 

000004 


AAAA7A 

OOOv r O 


i ) 


025562 


/Vat *X "7 A < 

062701 


000002 




1 ) 


025566 


AAat 117 

004737 


a« aTat "J A 




1) 


025572 


m a A a AA 

110120 






I) 


025574 


AAA aT A 4 

000501 






X ) 


025576 


a a A « aa 

110120 






I) 


023400 


052715 


A« AAAA 

OlOOOO 




I) 


023404 


001412 






1) 


023406 


012765 


000002 


000034 


1 ) 


025414 


012765 


AAAAi Jt 

OOOOlO 


AAAAt£ 

000030 


1 ) 


A«\f J AA 

025422 


Ai A Tat 4t 

012765 


AAAAAi 

OOOOOl 


AAAAtO 

000052 


1 ) 


025450 


AAAj aj a 

000411 






1 ) 


025452 


A 4 A7/C 

012765 


AAAAAA 

000020 


AAAAla 

000034 


1 J 


A*** A A A 

025440 


A« *>7atC 

012765 


AAAAAI 

000001 


AAAAH 

000056 


1 i 


AAV AM* 

025446 


A « A lat fC 

012765 


AAAAA4 

000001 


AAAAf A 

000052 


1 ) 
1) 


025454 


AAa i» i 

004757 


A AJ* af AA 

006600 




1 J 


A'XaT.al at A 

025460 


A V ^71 C 

05^715 


AAAAI A 

000010 




1) 


023464 


001210 






« X 
1 J 


025466 


AfA«| ap 

052715 


AAV\AA 

002000 




4 X 

1 } 


A'XaLA "7 *X 

025472 


AA4 rlAil 

001004 






1 J 


A*XaTal 7^ 

025474 


4 «t r ta *> 

Ink 702 


AAAAAA 

000200 




% X 

1 ) 


025500 


a a a T A 

101270 






1 ) 


025502 


000502 






1 J 

«x x 

2 ) 


0255O4 








2 J 


025504 


A« O'TAA 

012700 


027746 




c ) 


A^VC /- 

025-* • C 


« a A^i a 

112710 


AAAAAA 

000002 




cJ 


0255i. i 


112760 


000012 


AAAAAI 

000001 


c J 


023322 


sj at a "Tat A 

112760 


AAAAA"X 

000002 


AAAAAA 

000002 


2 J 


025530 


A< x Cat /\ 

016560 


AAAAjg at 

000064 


AAAAI *X 

000012 


n X 
2 J 




116560 


AAAAjT A 

OOOOoO 


AAAAAi 

000004 




Vat ^3^^ 




AAAAAI 
WVW3 




2) 


023550 


105715 






2) 


023552 


100002 






2) 


023554 


105260 


000003 




2) 


023560 


012760 


001000 


000010 


2) 


025566 


112760 


000020 


00OO05 


2) 


023574 


005060 


000006 




2) 


023600 


012701 


000012 




2) 


023604 


005721 







651: 
661: 



671: 



661: 
69$: 



701: 
76$: 



77$: 



BIS 4BIU2.SRS 

BR 661 

NOV 4126.. Rl 

NOVB Rl.l(RO) 

NOV R1.R3 

NOVB 4RS0ATA.8R0 

TST (R0)» 

NOVB PATTEN(R5).(R0)» 

OEC R3 

BNI 671 

NOV 4TRBUF.R0 

NOVB 1(R0).R1 

BIC 4177400. Rl 

NOV Rl.SNDCNT(RS) 

ADO 44.SNDCNTCR5) 

ADO 42. Rl 

CALL CNKSUN 

NOVB R1.(R0)» 

SWAB Rl 

NOVB R1.(R0). 

BIT 4BIT12.8R5 

BE0 661 

NOV 4RSEND . XSFLGC R5 ) 

NOV 4RSNDSZ.XSCNT(R5 

NOV 41.XSPKNN(R5) 

BR 691 

NOV 4RSC0NT.XSFLG(R5) 

NOV 41.XSCNT(R5) 

NOV 41.XSPKNNCR5) 

CALL RSVP 

BIT 4BIT3.SR5 

BNE 721 

BIT 48IT10.SR5 

BNE 701 

SUB 4126.. R2 

BNI 641 

BR 71$ 

TURTRY RECCR5).4512..DR(R5) 



SEQ 0108 

SO LAST PACKET NOW 
USE REMAINING COUNT 
USE 126. BYTES 
COPY COUNT TO BUFFER 
R3-C0UNTER TO LOAD BUFF 
FLAG FIRST 
SKIP COUNT 

I INSERT DATA 

MORE? 
YES 

->T0P AGAIN 
GET COUNT 
ZERO SIGN EXTEND 
NOW MANY TO SEND PLUS 
FLAG. COUNT. CNKSUN 
COMPENSATE FOR FLAG • C 
FOR CHECKSUM CALC. 
CNKSUN INTO PACKET 
EVEN ON AN 000 
BYTE BOUNDARY 
LAST OATA PACKET? 
NO 

I YES -EXPECT 'END' 
i OF THIS SIZE 
AND 1 PACKET 
SEND 

i (NOT LAST). EXPECT 
AND 1 BYTE 
AND 1 PACKET 
SEND PACKET 

AND RETURN TO SCHEDULER 
FLAG BYTE RETRY? 
YES 

RETRY DATA ERROR? 
YES 

NO. MORE OATA TO SEND? 
YES 
NO 



s RETRY HERE 



NOV 


4TRBUF.R0 


j FORM CMND PACK: 


NOVB 


4RSCMND.SR0 


t MESSAGE PACK TYPE 


NOVB 


4RSNSIZ, 1CR0) 


j THIS BIG 


NOVB 


4RSSR0.2CR0) 


lOP CODE -RE AO 


NOV 


REC(R5).10.(R0) 


iTHIS RECORO 


NOVB 


DR(R5).4.(R0) 


j THIS DRIVE 


CLRB 


3(R0) 


: PRESET NORM THRESHOLD 


TSTB 


8R5 


i REDUCED? 


BPL 


77$ 


|N0 


INCB 


3(R0) 


j YES-CHANGE THRESHOLD 


NOV 


4512.. 6. (RO) 


:4 BYTES DESIREO 


NOVB 


4020.5. (RO) 


j MAINTENANCE MOOE 


CLR 


6.CR0) 


iNO SEQUENCE 4 


NOV 


4RSMSIZ.R1 


:SIZE OF PACKET 


TST 


(Rl)» 


»PLUS FLAG. COUNT INTO Rl 



F9 
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TEST 5 / WRITE SELECTEO NUMBER OF BLOCKS 



SEQ 0109 



(2) 


023606 


012765 


000016 


000070 






(2) 














(2) 


023614 


004737 


013674 








(2) 


023620 


010110 










(2) 














(2) 


023622 


012701 


001000 








(2) 














(2) 


023626 


012703 


000034 








(2^ 


023632 


060503 










(2) 


023634 


005002 










(2) 


023636 


005202 










(2) 


023640 


012723 


AAAAA • 

000001 








(2) 


023644 


012723 


000204 








(2) 


023650 


162701 


AAAAAA 

000200 








(2) 


023654 


101401 










(2) 


023656 


000767 










(2) 


023660 


005202 










(2) 


023662 


010265 


000032 








(2) 


023666 


012723 


000002 








(2) 


023672 


012713 


000016 








(2) 














(2) 


023676 


004737 


006600 








(2) 














C2) 














7023 


023712 


005365 


AAAA/ ^ 

000066 






DEC 


7024 


023716 


001404 








Bca 


7025 


023720 


005265 


000064 






INC 


7026 


023724 


000137 


023064 






JMP 


7027 


023730 


005765 


000062 




21 : 


TST 


702S 


023734 


001012 








BNE 


7029 


023736 


005265 


000062 






INC 






Old rod 










7031 


023750 


013765 


003312 


000066 




NOV 


7052 


023756 


000137 


023064 






JMP 


7033 


023762 


005237 


003324 




TST5EX: 


INC 


7034 


023766 


000207 








RETURN 


7035 












7036 


023770 










ENDTST 


(3) 


023770 












(5) 


023770 


104401 











73»! 



751: 



TMP(R5> 
2* 

REC(R5) 
II 

TRK(RS) 

TST5EX 

TRK(RS) 

SECREC.REC(RS) 
T APLEN , TMPC R5 ) 
i« 

DONE 



HOV 


♦RSSNSZ . SNOCNT C R5 ) |SET UP SIZE TO SEND 


CALL 


CMKSUM 


{FORM CHECKSUM Rl -COUNT 


MOV 


Rl.(RO) 


(INSERT IN PACKET 


MOV 


•512. .Rl 


iSET EXPECTATION 






tCALC • OF OATA PACKETS 


MOV 


4XSFLG.R3 


I OFFSET OF FLAG 


ADO 


R5.R3 


lABS. AOOR. OF XSFLG 


CLR 


R2 


i PRESET 


INC 




s# PACKETS EXPECTED 


MOV 


#RSDATA.(R3)» 


lLOAO XSFLG 


MOV 


#132. ,(R3)» 


i AND EXPECT COUNT 




#128.. Rl 


iNEG RESULT LAST TIME 


BLOS 


751 


iLAST TIME! 


BR 


731 


(MORE TO 00 


INC 


R2 


iADO ONE FOR END PACK 


NOV 


R2.XSPKNMCR5) 


iSAVE ♦ PACKETS TO ExPEC 


MOV 


#RSEND.CR3)» 


(EXPECT AN END 


MOV 


#RSN0SZ.CR3) 


tTHlS BIG -14. BYTES 


CALL 


RSVP 


tSEND 



AND RETURN TO SCHEDULER 



l DO ALL RECORDS FOR THIS TRACK? 

t YES -GET OTHER TRACK 

i NO -ONTO NEXT RECORD 

I EXECUTE THE WRITE 

{DONE 2 TRACKS? 

» YES-EXIT 

I NO-SET FLAG FOR NEXT PASS 

I GET NEW STARTING BLOCK 9 

t RE SET 4 OF BLOCKS 

i AND EXECUTE 

(DONE 

(RETURN 



L 10020: 



TRAP 



CIETST 



MISCELLANEOUS SECTIONS MACY11 30(1046) 
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7039 










7040 










7041 


023772 








(3) 


023772 








7042 


023772 








(1) 


025772 


012737 


024036 


003330 


(1) 


024000 


004737 


006024 




(1) 


024004 


00473* 


005652 




CI) 


024010 


004737 


006072 




(1) 


024014 


004737 


005532 




CI) 


024020 


103004 






CI) 


024022 


004737 


006024 




CI) 


024026 


004737 


006072 




CI) 


024032 








7043 


024032 








C3) 


024032 


104432 






C3) 


024034 


000520 






7044 










7045 










7046 


024036 


005065 


000064 




7047 


024042 


013765 


003312 


000066 


7046 


024050 


005065 


000062 




7049 


024054 


016565 


000064 


000072 


7050 


024062 


005737 


002220 




7051 


024066 


001403 






7052 


024070 


066565 


000060 


000072 


7053 


024076 








CI) 










CI) 










CD 


024076 


012700 


027746 




CI) 


024102 


112710 


000002 




CI) 


024106 


112760 


000012 


000001 


CI) 


024114 


112760 


000002 


000002 


CI) 


024122 


016560 


000064 


000012 


CI) 


024130 


116560 


000060 


000004 


CI) 


024136 


112760 


000000 


000003 


CI) 


024144 


012760 


001000 


000010 


CI) 


024152 


112760 


000020 


000005 


CD 


024160 


005060 


000006 




CD 


024164 


012701 


000012 




CD 


024170 


005721 






CD 


024172 


012765 


000016 


000070 


CD 


024200 


004737 


013674 




CD 


024204 


010110 






CD 










CD 


024206 


012701 


001000 




CD 










CD 


024212 


012703 


000034 




CD 


024216 


060503 






CD 


024220 


005002 






CD 


024222 


005202 






CD 


024224 


012723 


000001 




CD 


024230 


012723 


000204 




CD 


024234 


162701 


000200 




CD 


024240 


101401 






CD 


024242 


000767 
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TEST 6 / READ SELECTEO NUMBER OF BLOCKS 

. SBTTL TEST 6 / REAO SELECTEO NUMBER OF BLOCKS 



SEQ 0110 



BGNTST 

TSTID ♦TST6 



EXIT TST 



64$; 



MOV ♦TST6.TSTT0P 

CALL SETUP 

CALL SETOR 

CALL RUN 

CALL SUAPOR 

BCC 641 

CALL SETUP 

CALL RUN 



TS:: 

j SAVE AOOR OF TEST 

tINIT UNITS TSTPC 

j GET 1ST ORVS. 

lOO TEST 

I GET NEXT ORVS. 

i BR NO 2ND ORVS 

i RE INI T UNITS TSTPC 

j REPEAT TFST 

I DONE 



TRAP 
.WORD 



C*EXIT 
L 10021 



TST6: 
It: 

lOf : 



CLR RECCR5) i START AT REC 0 

MOV T APLEN , TMPC R5 ) jGET THE • OF BLOCKS PER TRACK 

CLR TRKCR5) iTRK(R5)-lST OR 2N0 PASS 

MOV REC ( R5 ) , PAT TENC R5 ) tUSE RECORD NO. AS OATA 

TST ORVCMK |ADD OR ♦? 

BEQ 101 iNO 

ADO OR(RS).PATTENCRS) iAOO IN DRIVE 10 

TUREAD REC(R5).#512..DR(R5).#0 



68$: 



64* : 



MOV 


♦TRBUF.RO 


jFORM CMNO PACK: 


M0V8 


«RSCMN0.8R0 


{MESSAGE PACK TYPE 


MOVB 


♦RSMSIZ.KRO) 


{THIS BIG 


MOVB 


♦RSSR0.2CR0) 


tOP CODE IS REAO 


MOV 


RECCR5).10.(R0) 


jTHIS RECORD 


MOVB 


DRCR5).4.(R0) 


iTHIS DRIVE 


MOVB 


«0.3.CR0) 


i VERIFY 


MOV 


♦512.. 8. (RO) 


(TOTAL BYTES TO REAO 


MOVB 


#020.5. CRO) 


(MAINTENANCE MODE 


CLR 


6.CR0) 


(NO SEQUENCE ♦ 


MOV 


•RSMSIZ.Rl 


(GET SIZE OF PACKET 


TST 


(Rl)» 


1*2 FOR CHECKSUM 


MOV 


«RSSNSZ.SNDCNT(R5) (SIZE TO SEND 


CALL 


CHKSUM 


(FORM CHECKSUM Rl -COUNT 


MOV 


Rl.CRO) 


(INSERT CHECKSUM 


MOV 


♦512. .Rl 


:SET EXPECTATION 






(CALC ♦ OF DATA PACKETS 


MOV 


♦XSFLG.R3 


(GET OFFSET 


ADO 


R5.R3 


(ABS. AOOR. OF XSFLG 


CLR 


R2 


(PRESET AS NONE 


INC 


R2 


(♦ PACKETS EXPECTED 


MOV 


♦RSDATA, (R3)» 


(LOAD XSFLG 


MOV 


♦132. ,(R3)» 


(AND EXPECTED COUNT 


SUB 


♦128. .Rl 


(MEG RESULT LAST TIME 


BLOS 


66$ 


(LAST TIME 


BR 


641 


(MORE TO DO 
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SEO 0111 



(1) 


024244 


005202 




(1) 


024246 


010265 


000032 


CI) 


024252 


012723 


000002 


(1) 


024256 


012713 


000016 


(1) 


024262 


004737 


006600 


( 1) 
(1) 


024266 


032715 


002010 


1) 


024272 


001500 




(1) 


024274 






(2) 








(2) 








C2) 


024274 


012700 


027746 


(2) 


024300 


112710 


000002 


(2) 


024304 


112760 


000012 


(2) 


024312 


112760 


000002 


C2) 


024320 


016560 


000064 


(2) 


024326 


116560 


000060 


(2) 


024334 


105060 


000003 


(2) 


024340 


105715 




(2) 


024342 


100002 




(2) 


024344 


105260 


AAAAAf 

000003 


(2) 


024350 


012760 


001000 


(2) 


024356 


112760 


000020 


(2) 


024364 


005060 


000006 


(2) 


024370 


012701 


000012 


(2) 


024374 


005721 




(2) 


024376 


012765 


000016 


(2; 








(2; 


024404 


004737 


013674 


(23 


024410 


010110 




C2) 








(2) 


024412 


012701 


a a m AAA 

001000 


(2 ) 








(2) 


024416 


012703 


000034 


(2) 


024422 


060503 




(2; 


024424 


005002 




(2) 


024426 


005202 




(2; 


024430 


012723 


000001 


(2) 


024434 


012723 


000204 


(2) 


024440 


162701 


000200 


(2) 


024444 


101401 




C2 J 


024446 


000767 




/ *> X 

(2) 


024450 


005202 




/ ^ X 

(2 ) 


024452 


010265 


000032 


(2 ) 


024456 


012723 


AAAAA' 

OOOOOd 


(2 ) 


024462 


012713 


<\AAA * £ 

000016 


(2) 












f of 


WDOW 


(2) 








(2) 








/054 


024476 


005365 


000066 


7055 


024502 


001404 




7056 


024504 


005265 


000064 


7057 


024510 


000137 


024034 


7056 


024514 


005765 


000062 


7059 


024520 


001012 





66*: 


INC 


R2 


i ADD ONE FOR END PACK 




MOV 


R2.XSPKNM(RS) 


j SAVE ♦ PACKETS TO EXP€C 




MOV 


•RSEND.(R3). 


(EXPECT AN END ALSO. . . 




MOV 


•RSNDSZ.(RS) 


jTMIS BIG-14. BYTES 




CALL 


RSVP 


iSENO 








(AND RETURN TO SCHEDULER 


67$ t 


BIT 


#BIT10!BTT3.8R5 


iRETRY? 




BEQ 


65 » 


|N0. 



72$ t 



000001 
000002 
000012 
000004 



000010 
000005 



000070 



73$: 



69$: 



71$! 



2$: 



0EC 
BEQ 
INC 
JMP 
TST 
BNE 



TMP(R5) 
2$ 

REC(R5) 
1$ 

TRK(R5) 
TST6EX 



TURTRY REC(R5).4512..0R(R5) 



5 YES 



HOV 


♦TR8UF.R0 


(FORM CMNO PACK: 


nufo 


#RSCMN0.8R0 


t MESSAGE PACK TYPE 


Mnvn 

nut o 


«ftSMSIZ.KRO) 


(THIS BIG 




#RSSRD.2(R0) 


lOP CODE -READ 


nut 


REC(R5).10.(R0) 


j THIS RECORD 


HOUR 
nufo 


0R(R5).4.(R0) 


(THIS ORIVE 


ri do 


3(R0) 


{PRESET NORM THRESHOLD 




8R5 


t REDUCED? 


RPl 


73$ 


|N0 


tmtr 


3CR0) 


t YES -CHANGE CHRESHOLO 


nut 


♦512.. 8. (RO) 


(• BYTES DESIRED 


nut o 


•020. 5. (RO) 


(MAINTENANCE MODE 


n o 

ttn 


6.(R0) 


jNO SEQUENCE • 


nuv 


♦RSMSIZ.Rl 


i SIZE OF PACKET 


TCT 


(Rl)* 


(PLUS FLAG*COUNT INTO Rl 


NOV 


#RSSNSZ.SNDCNT(R5) jSET UP SIZE TO SEND 


CALL 


CHKSUM 


(FORM CHECKSUM Rl -COUNT 




Rl.(RO) 


(INSERT IN PACKET 


MOV 


•512.. Rl 


(SET EXPECTATION 






(CALC ♦ OF DATA PACKETS 


MOV 


♦XSFLG.R3 


(OFFSET OF FLAG 


ADO 


R5.R3 


(ABS. AOOR. OF XSFLG 


CLR 


R2 


(PRESET 


INC 


R2 


{* PACKETS EXPECTED 


MOV 


#RSDATA.(R3)» 


(LOAD XSFLG 


MOV 


♦132..CR3)* 


(AND EXPECT COUNT 


SUB 


•128.. Rl 


(NEG RESULT LAST TIME 


BLOS 


71$ 


(LAST TIME! 


BR 


69$ 


(MORE TO DO 


INC 


R2 


(ADD ONE FOR EM) PACK 


MOV 


R2.XSPKM1(R5) 


(SAVE ♦ PACKETS TO EXPEC 


NOV 


#RSEND.(R3)» 


(EXPECT AN END 


MOV 


•RSNDSZ.CR3) 


(THIS BIG-14. BYTES 


CALL 


RSVP 


(SEW) 




(AM) RETURN TO SCHEDULER 



(DO ALL RECOROS YMIS TRACK? 

(YES-GET OTHER TRACK 

(NO-NEXT RECORD 

(EXECUTE THE READ 

(DONE 2 TRACKS? 

(YES-EXIT 
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7060 024522 005265 000062 

7061 024526 013765 003336 000064 
"062 024534 013765 003312 000066 
7063 024542 000137 024054 

"064 024546 005237 003324 

7065 024552 000207 

7066 

7067 024554 

(3) 024554 

(3^ 024554 104401 



INC 
MOV 
MOV 
JMP 

TST6EX: INC 

RETURN 

ENOTST 



TRK(R5) 

SECREC.RECCR5) 
TAPLEN , TMPC R5 ) 
II 

DONE 



SEQ 0112 



iNO-SET FLAG FOR NEXT PASS 

I GET NEU STARTING BLOCK • 

i RESET • OF BLOCKS 

i AND EXECUTE 

i DONE 

(RETURN 



L10021; 



TRAP 



ClETb* 



MISCELLANEOUS SECTIONS 



CZTlAJF , 


Pll 25-JAN-84 


08:09 




7070 










7071 










7072 


024556 








C3) 


024556 








7073 


024556 








(I) 


024556 


012737 


024622 


AA V V V A 

003330 


( I ) 


024564 


004737 


006024 




CI) 


024570 


004737 


005652 




CI) 


024574 


004737 


006072 




( I ) 


024600 


004737 


/VAC C V ~i 

005532 




CI) 


024604 


103004 






« \ 

v. 1 ) 


024606 


004737 


AA/ A 

006024 




CI) 


024612 


004737 


006072 




CI) 


024616 








7074 


024616 








\. 3) 


024616 


104432 






C 3 ) 


024620 


000724 






7075 










7076 










7077 


024622 


005065 


OOOOO* 




7078 


024626 


013765 




AAAAzr 

UvK/UOO 


7079 


024634 


005065 


000062 




7 ao a 

7080 


024640 


016565 


000064 


WW 7tf 


*y ao « 

7081 


024646 


005737 


002220 




Taa 

7082 


024652 


001403 






'fAttf 

7083 


024654 


066565 


AAAA/ A 

000060 


AAAAT5 


7084 


024662 








CI) 


024662 


012700 


027746 




C 1 J 


024666 


112710 


AAAAA "X 

000002 




CI) 


024672 


112760 


AAAAI *S 

000012 


OOOQ01 


CI) 


024700 


112760 


AAAAA T 

000003 


AAAAA ^ 

000002 


CI) 


024706 


112760 


aaaaai 
000001 


AAAAAf 

000003 


CI) 


024714 


116560 


AAAA£. A 

OOOOoO 


AAAAAJ 

000004 


CI) 


024722 


112760 


AAAA *W\ 

000020 


AAAAA C 

000005 


CI) 


024730 


005060 


AAAAA 

000006 




CI) 


024734 


012760 


/V/\ a AAA 

001000 


AAAA * A 

000010 


CI) 


024742 


016560 


000064 


AAAA « 

000012 


CI) 


024750 


012701 


AAAA 4 

000012 




CI) 


024754 


005721 






CI) 


024756 


012765 


000016 


AAAA ^ A 

000070 


CI) 


024764 


004737 


013674 




CI) 


024770 


010110 






CI) 










CI) 


024772 


012765 


AAAA^A 

000020 


AAAA "W A 

000034 


CI) 


025000 


012765 


AAAAA « 

000001 


AAAA "W£_ 

00003© 


CI) 


025006 


012765 


AAAAA 1 

000001 


AAAA 

000032 


f \ \ 
CI) 


025014 


012702 


AA « AAA 

001000 






025020 


004737 


AA£ £AA 

006600 






025024 


032715 


AAAA* A 

qoooio 




\ 1 } 


025030 


001314 






CI) 


025032 


042715 


010000 




CI) 


025036 


012700 


027746 




CI) 


025042 


020227 


000200 




CI) 


025046 


101004 






CI) 


025050 


010201 






CI) 


025052 


052715 


010000 
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TEST 7 / WRITE -VERIFY SELECTED NUMBER Of BLOCKS 

. SBTTL TEST 7 / WRITE VERIFY SELECTED NUMBER OF BLOCKS 

BGNTST 

TS T I0 #TST7 



SEQ 0113 



T7: 



NOV 


♦TST7.TSTT0P 


jSAVE AOOR OF TEST 


CALL 


SETUP 


sINIT UNITS TSTPC 


CALL 


SET0R 


iGET 1ST ORVS. 


CALL 


RUN 


jOO TEST 


CALL 


SWAPOR 


tGET NEXT ORVS. 


BCC 


641 


:BR NO 2ND ORVS 


CALL 


SETUP 


sREINIT UNITS TSTPC 


CALL 


RUN 


j REPEAT TEST 






iOONE 



641: 

EXIT TST 



TST7: CLR REC(RS) iSTART AT REC 0 

NOV TAPLEN, TMPCR5) tGET TNE ♦ OF BLOCKS PER TRACK 

CLR TRK(R5) |TRK(R5)-1ST OR 2ND PASS 

II: NOV REC(R5).PATTEN(R5) jUSE RECORD NO. FOR OATA 

TST DRVCMK i ADD OR *? 

BEQ 10t iNO 

ADO DR(R5) ,PATTEN(R5) 

10): TUWRIT PATTENCR5).REC(R5).#512 

72t: MOV 



TRAP 
.UORO 



CtExIT 

L 10022 



10 



64t: 



NOVB 

MOVB 

NOVB 

NOVB 

MOVB 

MOVB 

CLR 

MOV 

MOV 

MOV 

TST 

MOV 

CALL 

MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

BIT 

BNE 

BIC 

MOV 

CMP 

BHI 

MOV 

BIS 



tAOO DRIVE 
..DR(R5).«1 
•TR8UF.R0 
♦RSCMND.BRO 
♦RSMSIZ.l(RO) 
♦RSSWR.2CR0) 
♦1.3.CR0) 
DR(R5).4.(R0) 
•020.5. (RO) 
6.CR0) 
•512. .8.CR0) 
REC(R5).10.(R0) 
•RSMSIZ.R1 
CR1)» 



;MAKE COMMAND PACKET; 
: COMMAND FLAG 
;TMIS SIZE 

; INSERT OP COOE-yRITE 
s VERIFY (1 OR 0) 
; DRIVE • 

j MAINTENANCE MODE SWITCH 
;N0 SEQUENCE • 
: TOTAL COUNT TO WRITE 
; AT RECORD N 
; TNE PACKET SIZE PLUS«2 
l(FLAG AND COUNT) INTO R 



•RSSNSZ . SNOCNT ( R5 ) (LOAD THE SIZE TO 
CHKSUM ;R0 --> R1-C0UNT 

Rl.(RO) tPUT CWSUM IN PACKET 

tSET UP EXPECTATIONS: 
•RSCONT . XSFLGC R5 ) ; THE FLAG 



•1.XSCNTCR5) 
•1.XSPKNMCR5) 
•512. .R2 
RSVP 

♦BIT3.8R5 
721 

•6IT12.8R5 

•TRBUF.RO 

R2.M28. 

651 

R2.R1 

♦BIT12.SR5 



; TNE COUNT 
; THE • PACKETS EXPECTED 

sGET ♦ OF DATA B 
.-SEND CANO RETURN TO SCM 
.FLAG BYTE ERROR? 
;YES 

;FLAG FOR LAST PACKET 

;POINT TO TOP OF BUFFER 

i START DATA PACKETCS) 

j#512. » 128.! 

: #512. < 128. 

;S0 LAST PACKET NOW 



I<9 



MISCELLANEOUS SECTIONS MACU1 30(1046) 



CZHAJF . 


Pll 25 -JAN -64 


AO . AO 




( 1 ) 


025056 


000402 






CI) 


025060 


012701 


QQQdQQ 




CI) 


025064 


110160 


CKaaa/1 




CI) 


025070 


010103 








025072 


112710 


AAAAAI 




CI) 


025076 


005720 






CD 


025100 


116520 


QQW * <d 




CI) 


025104 


005303 






( 1 ) 


025106 


101374 






CI) 


025110 


012700 


A077A1 

Uc f f *D 




CI) 


025114 


116001 


AAAAAI 

ywwi 




f i "\ 


025120 


042701 


1 f fHSAJ 




( 1 ) 


025124 


010165 


AAAA7A 




CI) 


025130 


062765 




AAAA7A 


f \ \ 
CI) 


025136 


062701 






u) 


025142 


004737 


A1 

OlOO f 4 




CI) 


025146 


110120 






( 1 J 


025150 


000301 






v 1 ) 


025152 


110120 






C 1 J 


025154 


032715 


A1 AAAA 
U1WW 




CI) 


025160 


001412 






CI) 


025162 


012765 


vUUWc 


AAAA1A 


(1) 


025170 


012765 


000016 


0000S6 


(1) 


025176 


012765 


000001 


000032 


I 1 J 


025204 


000411 






CI) 


025206 


012765 


AAAA OA 


AAAAtJ 


11 J 


025214 


012765 


AAAAAI 


AAAAlf 


11) 


025222 


012765 


AAAAAI 


AAAA TO 


i 1 J 


025230 


004737 


AAJLJLAA 




kl j 
11) 


025234 


032715 


AAAA1 A 






025240 


001210 






CI) 


025242 


032715 


0020OO 




CI) 


025246 


001004 






11; 


025250 


162702 


AAAOAA 




11 J 


025254 


101270 






I 1 J 


025256 


000502 






f 1 ^ 

I 1 -1 


025260 








\€L ) 










\ C J 










t O "\ 
\ d. J 


025260 


012700 






f o"\ 


025264 


112710 


AAAAAO 




f O 1 


025270 


112760 


AAAA1 O 


AAAAAI 
WUW1 


f O 1 


025276 


112760 


AAAAAO 


AAAAAO 




025304 


016560 


AAAA4LA 


AAAA1 O 


f D 


025312 


116560 






K C J 


025320 


105060 


AAAAAI 

vaaavUj 






025324 


105715 






f O^ 


025326 


100002 






V C J 


025330 


105260 


AAAAAI 
WVW J 




(2) 


025334 


012760 


001000 


000010 


(2) 


025342 


112760 


000020 


000005 


C2) 


025350 


005060 


000006 




(2) 


025354 


012701 


000012 




(2) 


025360 


005721 






(2) 


025362 


012765 


000016 


000070 



25 -JAN -84 08:33 PAGE 56-1 
TEST 7 / URITE VERIFY SELECTED NUMBER OF BLOCKS 



65* : 
66$: 



671: 



66t: 
69$: 



70$: 
76$: 



77$: 



BR 

MOV 

M0VB 

MOV 

M0VB 

TST 

MOVB 

DEC 

BMI 

MOV 

MOVB 

BIC 

MOV 

ADD 

ADD 

CALL 

MOVB 

SUAB 

MOVB 

BIT 

BEQ 

MOV 

MOV 

MOV 

BR 

MOV 

MOV 

MOV 

CALL 

BIT 
BNE 
BIT 
BNE 
SUB 
BHI 
BR 

TURTRY 



SEQ 0114 

(USE REMAINING COUNT 
tUSE 120. BYTES 
tCOPY COUNT TO BUFFER 
I R3 -COUNTER TO L0A0 BUFF 
j FLAG FIRST 
tSKIP COUNT 

{INSERT 0ATA 



661 

♦128. ,R1 
R1.1CR0) 
R1.R3 

♦RSDATA.flRO 

(R0)» 

PATTEN(R5).(R0). 
R3 
67 1 

♦TRBUF.R0 
1(R0).R1 
♦177400. Rl 
Rl.SNDCNT(RS) 
♦4.SN0CNTCR5) 
#2.R1 
CHKSUM 
R1.(R0)» 
Rl 

R1.(R0)» 
♦6IT12.8R5 
681 

#RSEND , XSFLGC RS ) 

«RSNDSZ.XSCNT(RS) «0F THIS SIZE 
♦1 , XSPKNMC R5 ) i AND 1 PACKET 
69 $ tSEND 

«RSC0NT. XSFLGC R5) iCNOT LAST). EXPECT • 
♦1.XSCNKR5) t AND 1 BYTE 
♦1.XSPKNMCR5) s AND 1 PACKET 
RSVP -.SEND PACKET 

I AND RETURN TO SCHEDULER 
•BIT3.8R5 ;FLAG BYTE RETRY? 

72$ ;YES 
«BIT10.SR5 ; RETRY DATA ERROR? 

70$ ;YES 

♦128.. R2 ;N0. MORE DATA TO SEND? 

64$ ;YES 
71$ :N0 



(MORE? 
I YES 
: - - >T0P AGAIN 
iGET COUNT 
i ZERO SIGN EXTEND 
» HOW MANY TO SEND PLUS 
l FLAG . COUNT . CHKSUM 
I COMPENSATE FOR FLAG • 
» FOR CHECKSUM CALC. 
I CHKSUM INTO PACXE T 
tEVEN ON AN ODD 
i BYTE BOUNDARY 
lLAST OATA PACKET? 
»N0 

I YES -EXPECT -END- 



RECCR5),*512..DR(R5) 



; RE TRY HERE 



MOV 


•TRBUF.RO 




FORM CMND PACK: 


MOVB 


«RSCMN0.SR0 




i MESSAGE PACK TYPE 


MOVB 


♦RSMSIZ.KRO) 




;THIS BIG 


MOVB 


♦RSSRD.2CR0) 




;0P CODE -READ 


MOV 


REC(R5).10.(R0) j 


:THIS RECORD 


MOVB 


0R(RS).4.(R0) 




iTHIS DRIVE 


CLRB 


3(R0) 




: PRESET NORM THRESHOLD 


TSTB 


fiRS 




■REDUCED? 


BPL 


77$ 




(NO 


INCB 


3(R0) 




(YES -CHANGE THRESHOLD 


MOV 


•512.. 8. (RO) 




!♦ BYTES DESIRED 


MOVB 


♦020.5. (RO) 




i MAINTENANCE MOOE 


Cl.R 


6.CR0) 




;N0 SEQUENCE ♦ 


MOV 


♦RSMSIZ.R1 




tSIZE OF PACKET 


TST 


(Rl)» 




:PLUS FLAG* COUNT INTO Rl 


MOV 


♦RSSNSZ.SNDCNT(RS) :SET UP SIZE TO SEND 



L9 

MISCELLANEOUS SECTIONS MACU1 30(1046 ) 25-JAN-64 08:33 PAGE 56-2 

CZTUUF.P11 25 JAN-84 06:09 TEST 7 / WRITE -VERIFY SELECTEO NUMBER OF BLOCKS 



SEO 0115 



(2) 
















(2) 


025370 


004737 


013674 










(2) 


025374 


010110 












(2) 
















C2) 


025376 


012701 


001000 










(2) 
















(2) 


025402 


012703 


000034 










(2) 


025406 


060503 












(2) 


025410 


005002 












(2) 


025412 


005202 










731 : 


(2) 


025414 


012723 


000001 










(2) 


025420 


012723 


000204 










(2) 


025424 


162701 


000200 










(2) 


025430 


101401 












(2) 


025432 


000767 












(2) 


025434 


005202 










751; 


(2) 


025436 


010265 


000032 










(2) 


025442 


012723 


AAAAA *N 

000002 










(2) 
(2) 


025446 


012713 


000016 










(2) 


025452 


004737 


006600 










(2) 
















(2) 
















7085 


025466 


005365 


000066 






DEC 


t±at> f r\ r > 

TMPCR5) 


7066 


025472 


001404 








BEQ 


21 


7087 


025474 


005265 


000064 






INC 


RECCR5) 


7088 


025500 


000137 


024640 






JMP 


11 


7089 


025504 


005765 


000062 




21: 


TST 


TRK(R5) 


7090 


025510 


001012 








BNE 


TST7EX 


7091 


025512 


005265 


000062 






INC 


TRK(R5) 


7AQO 


025516 


013765 


003336 


000064 




nov 


StCRcC « RfeCC R5 ) 


7093 


025524 


013765 


003312 


000066 




H0V 


TAPLEN, TMP(R5) 


7094 


025532 


000137 


024640 






JMP 


1$ 


7095 


025536 


005237 


003324 




TST7EX: 


INC 


DONE 


7096 


025542 


000207 








RETURN 




7097 
















7098 


025544 










EN0TST 




(3) 


025544 














(5) 


025544 


104401 













CALL 


CHKSUM 


j FORM CHECKSUM Rl -COUNT 


MOV 


Rl.(RO) 


i INSERT IN PACKET 


MOV 


•512. ,R1 


iSET EXPECTATION 






sCALC ♦ OF OATA PACKETS 


MOV 


*XSFLG,R3 


j OFFSET OF FLAG 


ADO 


R5.R3 


1A8S. ADOft. OF XSFLG 


CLR 


R2 


i PRE SET 


INC 


R2 


;* PACKETS EXPECTED 


MOV 


«RS0ATA,(R3)* 


jLOAO XSFLG 


MAW 

nuv 




(AND fcXPECT LOUN I 


SUB 


♦128.. Rl 


jNEG RESULT LAST TIME 


BLOS 


75$ 


j LAST TIME! 


BR 


731 


{MORE TO 00 


INC 


R2 


jAOO ONE FOR END PACK 


MOV 


R2 f XSPKNM(R5) 


jSAVE ♦ PACKETS TO EXPEC 


MOV 


#RSEND.(R3)» 


; EXPECT AN END 


MOV 


«RSNDSZ.(R3) 


jTMIS BIG -14. BYTES 


CALL 


RSVP 


(SEND 



;ANO RETURN TO SCHEDULER 



tOO ALL RECORDS FOR THIS TRACK? 

(YES -GET OTHER TRACK 

i NO-NEXT RECORD 

t EXECUTE THE WRITE 

.DONE 2 TRACKS? 

I YES -EXIT 

j NO-SET FLAG FOR NEXT PASS 
jGET NEW STARTING BLOCK 0 
I RESET 6 OF BLOCKS 
5 AND EXECUTE 
i DONE 
s RETURN 



L10022: 



TRAP 



C*ETST 



MISCELLANEOUS SECTIONS MACY11 30(1046) 



CZ7UUF.PU 25-JAN-84 


08 : 09 




7101 










7102 










7103 


025546 








(3) 


025546 








7104 


025546 








(1) 


025546 


012737 


025612 


ASW 11A 

003330 


(1) 


025554 


004737 


006024 




(1) 


025560 


004737 


005652 




(1) 


025564 


004737 


006072 




(1) 


025570 


004737 


005532 




(1) 


025574 


103004 






CI) 


025576 


004737 


QQ6Q24 




(1) 


025602 


004737 


006072 




(1) 


025606 








7105 


025606 








(3) 


025606 


104432 






(3) 


025610 


000520 






7106 










7107 










7108 


025612 


005065 


AAAA/l 

000Q64 




7109 


025616 


013765 




AAAAf/ 

OWOoo 


7110 


025624 


005065 


000062 




7111 


025630 


016565 




OQUO r <? 


7112 


025636 


005737 


002220 




7H3 


025642 


001403 






7114 


025644 


066565 


AAAAfA 

000060 


OQQO f d 


7115 


025652 








(1) 










(1) 










(1) 


025652 


012700 


AO^ £. 

027746 




(1) 


0256S6 


112710 


AAAAA'% 

000002 




(1) 


025662 


112760 


000012 


AAAA/\ 4 

oooooi 


(1) 


025670 


112760 


000002 


AAAAA** 

000002 


(1) 


025676 


016560 


000064 


AAAA 4 

000012 


(1) 


025704 


116560 


000060 


AAAA A A 

000004 


(1) 


025712 


112760 


000001 


A A AAA V 

000003 


(1) 


025720 


012760 


AA « AAA 

001000 


AAAA * t\ 

000010 


(1) 


025726 


112760 


000020 


AAAAAC 

000005 


(1) 


025734 


005060 


000006 




(1) 


025740 


012701 


AAAA 4 •** 

000012 




(1) 


025744 


005721 






(1) 


025746 


012765 


AAAA 4 ^ 

000016 


AAAA ^ A 

000070 


CI) 


025754 


004737 


A« t £ T A 

013674 




(1) 


025760 


010110 






(1) 










(1) 


025762 


012701 


AA1 AAA 

001000 




(1) 










(1) 


025766 


012703 


000034 




(1) 


025772 


060503 






(1) 


025774 


005002 






(1) 


025776 


005202 






(1) 


026000 


012723 


000001 




(1) 


026004 


012723 


000204 




(1) 


026010 


162701 


000200 




(1) 


026014 


101401 






(1) 


026016 


000767 







M9 

25-JAN-84 08:33 PAGE 57 
TEST 8 / READ -REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS 

. SBTTL TEST 8 / READ -REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS 



SEQ 0116 



BGNTST 

TSTID #T3T8 



T8: 



MOV 


4TST8.TSTT0P 


sSAVE A00R OF TEST 


CALL 


SETUP 


jINIT UNITS TSTPC 


CALL 


SETDR 


sGET 1ST DRVS. 


CALL 


RUN 


lOO TEST 


CALL 


SUAPOR 


j GET NEXT DRVS. 


BCC 


64 1 


j BR NO 2ND DRVS 


CALL 


SETUP 


tREINIT UNITS TSTPC 


CALL 


RUN 


{REPEAT TEST 






(DONE 



64$ ! 

EXIT TST 



TST8: CLR RECCR5) i START AT REC 0 

MOV T APLEN , TMPC R5 ) (GET THE ♦ OF BLOCKS PER TRACK 

CLR TRKCR5) (TRKCR55-1ST OR 2ND PASS 

1$: MOV REC ( R5 ) , PAT TENC R5 ) (USE RECORD NO. FOR DATA 

TST DRVCHK ;ADD DR ♦? 

BEQ 101 »N0 

AOD ORCRS).PATTEN(RS) (ADD DRIVE 10 

10$: TUREAD REC(RS) .#512. .DR(R5).*1 



TRAP 
.UORD 



CIEXIT 
L 10023- 



681: 



641: 



MOV 

MOVB 

MOVB 

MOVB 

MOV 

MOVB 

MOVB 

MOV 

MOVB 

CLR 

MOV 

TST 

MOV 

CALL 

MOV 

MOV 

MOV 

ADD 

CLR 

INC 

MOV 

MOV 

SUB 

BLOS 

BR 



♦TRBUF.RO 
♦RSCMND.8R0 
MSMSIZ.KRO) 
♦RSSR0.2CR0) 
RECCR55.10.CRO) 
0R(R5).4.(R0) 
♦1.3.CR0) 
♦512. ,8.(R0) 
♦020.5. CRO) 
6.CP0) 
♦RSMSIZ.R1 
(Rl) 



{FORM CMND PACK: 

(MESSAGE PACK TYPE 

(THIS BIG 

(OP COOE IS READ 

(THIS RECORD 

(THIS DRIVE 

(VERIFY 

(TOTAL BYTES TO READ 
(MAINTENANCE MODE 
(NO SEQUENCE * 
s GET SIZE OF PACKET 
j*2 FOR CHECKSUM 



♦RSSNSZ , SNDCNT ( R5 ) (SIZE TO SEND 
CHKSUM (FORM CHECKSUM Rl -COUNT 

Rl.(RO) (INSERT CHECKSUM 



♦512. .Rl 

♦XSFLG. R3 

R5.R3 

R2 

R2 

♦RSDATA.CR3)* 
♦132. .(R3)» 
♦128.. Rl 
66* 
64 1 



jSET EXPECTATION 

jCALC ♦ OF DATA PACKETS 

(GET OFFSET 

(ABS. AODR. OF XSFLG 

{PRESET AS NONE 

{♦ PACKETS EXPECTED 

(LOAD XSFLG 
AND EXPECTEO COUNT 
NEG RESULT LAST TIME 
LAST TIME 

(MORE TO DO 



N9 



MISCELLANEOUS SECTIONS MACYU 30(1046) 



CZTUUF.P11 25-JAN-84 


/SO AO 

08 :09 


(1) 


026020 


005202 




(1) 


026022 


010265 


/■\/\/\/\ « 

000032 


(1) 


026026 


012723 


000002 


(1) 


026032 


012713 


000016 


(1) 


026036 


004737 


006600 


(1) 








(1) 


026042 


032715 


002010 


(1) 


026046 


001500 




(1) 


026050 






(2) 








(2) 








(2) 


026050 


012700 


027746 


(2) 


026054 


112710 


AAAAAO 


(2) 


026060 


112760 


AAAA4 O 


(2) 


026066 


112760 




C2) 


026074 


016560 


AAAAX1 


(2) 


026102 


116560 




(2) 


026110 


105060 


AAAAA1 


(2) 


026114 


105715 




(2) 


026116 


100002 




(2) 


026120 


105260 


\AA/UUo 


(2) 


026124 


012760 


OQ1UQO 


(2) 


026132 


112760 


VAA/UcU 


C2) 


026140 


005060 


OOOOO© 


(2) 


026144 


012701 


AAAA1 O 


(2) 


026150 


005721 




(2) 


026152 


012765 


000016 


(2) 








T2) 


026160 


004737 


013674 


(2) 


026164 


010110 




(2) 








(2) 


026166 


012701 


« AAA 

001000 


(2) 








(2) 


026172 


012703 


AAAAT4 

000034 


(2) 


026176 


060503 




(2) 


026200 


005002 




(2) 


026202 


005202 




(2) 


026204 


012723 


OOOOOl 


(2) 


026210 


012723 


AAAAAJ 

000204 


(2) 


026214 


162701 


000200 


(2) 


026220 


101401 




(2) 


026222 


000767 




(2) 


026224 


005202 




(2) 


026226 


010265 


AAAAf) 

000032 


(2) 


026232 


012723 


AAAAA^ 

000002 


(2) 


026236 


012713 


AAAA4 £. 

000016 


(2) 








(2) 


026242 


004737 


UvOOUU 


(2) 








(2) 








7116 


026252 


005365 


000066 


7117 


026256 


001404 




7118 


026260 


005265 


000064 


7119 


026264 


000137 


025630 


7120 


026270 


005765 


000062 


7121 


026274 


001012 





25-JAN-84 08:33 PAGE 57-1 
TEST 6 / READ -REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS 

66*: 



671: 



SEQ 0117 



INC 


R2 


j ADD ONE FOR END PACK 


MOV 


R2.XSPKNM(R5) 


j SAVE # PACKETS TO EXPEC 


MOV 


#RSEND, (R3) ♦ 


I EXPECT AN END ALSO... 


MOV 


«RSNDSZ.(R3) 


(THIS BIG-14. BYTES 


CALL 


RSVP 


.SEND 






I AND RETURN TO SCHEDULER 


BIT 


«BIT10?BIT3.SR5 


» RETRY? 


BEQ 


65» 


iNO. 



72* : 



000001 
000002 
000012 
000004 



000010 
000005 



000070 



73*! 



69*! 



71*: 



2*: 



DEC 
BEQ 
INC 
JMP 
TST 
BNE 



TMPCR5) 
2* 

RECCR5) 
1* 

TRKCR5) 
TST8EX 



TURTRY RECCR5).#512..DR(R5) 



:YES 



MOV 


♦TRBUF.RO 


(FORM CMND PACK: 


MOVB 


♦RSCHND.8R0 


.MESSAGE PACK TYPE 


MOVB 


«RSMSIZ,1(R0) 


(THIS BIG 


MOVB 


•RSSR0.2CR0) 


lOP C0OE-REA0 


MOV 


RECCR5).10.(R0) 


iTHIS RECORD 


MOVB 


DR(R5).4.(R0) 


(THIS DRIVE 


CLR8 


3CR0) 


(PRESET NORM THRESHOLD 


TSTB 


8R5 


t REDUCED? 


BPL 


73* 


iNO 


I NCR 


3CR0) 


l YES -CHANGE THRESHOLD 


MOV 


♦512.. 8. (RO) 


;# BYTES DESIRED 


MOVB 


#020.5. (RO) 


(MAINTENANCE MODE 


CLR 


6.CR0) 


(NO SEQUENCE # 


MOW 


0RSMSIZ.R1 


(SIZE OF PACKET 


TCT 


(RD* 


:PLUS FLAG* COUNT INTO Rl 


MOV 


#RSSNSZ. SN0CNTCR5) ;SET UP SIZE TO SEND 


CALL 


CHKSUM 


(FORM CHECKSUM Rl-COUNT 


MOV 


Rl.(RO) 


.INSERT IN PACKET 


MOV 


#512. ,R1 


(SET EXPECTATION 






(CALC # OF DATA PACKETS 


MOV 


#XSFLG,R3 


(OFFSET OF FLAG 


ADD 


R5.R3 


.ABS. ADOR. OF XSFLG 


CLR 


R2 


.PRESET 


INC 


R2 


|# PACKETS EXPECTED 


MOV 


#RSDATA.(R3)» 


.LOAO XSFLG 


MOV 


#132..(R3)» 


(AND EXPECT COUNT 


SUB 


#128.. Rl 


(NEG RESULT LAST TIME 


BLOS 


71* 


(LAST TIME! 


BR 


69* 


(MORE TO DO 


INC 


R2 


(ADO ONE FOR END PACK 


MOV 


R2.XSPKNMCR5) 


(SAVE # PACKETS TO EXPEC 


MOV 


#RSEND.CR3)» 


(EXPECT AN END 


MOV 


#RSNDSZ.(R3) 


(THIS BIG-14. BYTES 


CALL 


RSVP 


;SEND 



(AND RETURN TO SCHEDULER 



(DO ALL RECORDS THIS TRACK? 

(YES -GET OTHER TRACK 

(NO -NEXT RECORD 

(EXECUTE THE READ 

.DONE 2 TRACKS? 

.YES-EXIT 



BIO 



MISCELLANEOUS SECTIONS NACU1 30(1046) 
C2TUUF.PH 25-JAN-64 08:09 

7122 026276 005265 000062 

7125 026302 013765 003336 000064 

7124 026310 013765 003312 000066 

7125 026316 000137 025630 

7126 026322 005237 003324 

7127 026326 000207 
7126 

7129 026330 

(3) 026330 

(3) 026330 104401 



2b-JAN-64 08:33 PAGE 57-2 
TEST 8 / READ-REDUCED THRESHOLD SEIECTEO NUMBER Of BLOCKS 



SEQ 0118 



INC 
MOV 
MOV 
JHP 

TST8EX: INC 

RETURN 

ENDTST 



TRK(R5) 

SECREC.REC(R5) 
TAPLEN, TMP(R5) 
It 

DONE 



iNO-SET FLAG FOR NEXT PASS 

l GET NEW STARTING BLOCK • 

I RE SET • OF BLOCKS 

l AND EXECUTE 

i DONE 

{RETURN 



L 10023: 



TRAP 



CIETST 



CIO 
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A| m AA 




r*132 




















M 54 


026332 








(3) 


026332 








r*135 










rise 


026332 


012737 


026354 


AAV "» "W A 

003330 


'137 


026340 


004737 


006024 






026344 


004737 


woo a 




ri39 










'140 










r 141 


026350 








(3) 


026350 


104432 






(3) 


026352 


000662 






'142 










'143 


026354 


012737 


AAAAAf 

UUOUU1 




'144 


026362 


012700 


r r 




'145 


026366 


112710 


AAAAA3 




'146 


026372 


112 /60 




AAAAAl 


'147 


026400 


112760 


AAAA1 D 


AAAAAO 


'148 


026406 


105060 


UWW3 




'149 


026412 


005060 


AAAAAA 




'150 


026416 


005060 






'151 


026422 


005060 


AAAA4 A 




'152 


026426 


005060 


000012 




'153 


026432 


012701 


AAAA1 O 




'154 


026436 


005721 






'155 


026440 


012765 


AAAA1 £. 


AAAA 7 A 


'156 


026446 


004737 


013674 




'157 


026452 


010110 






'156 


026454 


012765 


AAAAA4 


AAAAIi 

OQQQ34 


'159 


026462 


012765 


AAAA V A 

000034 


AAAAtI 

000036 


'160 


026470 


012765 


AAAAAl 

000001 


AAAAIO 


'161 










'162 


026476 


004737 


006600 




'163 










'164 


026502 


004737 


A « A A* A 

014030 




'165 










'166 


026506 


032715 


AAAA« A 

000010 




'167 


026512 


001323 






'166 










'169 


026514 


012737 


AAAAAO 

000002 


AA 111 A. 

003344 


'170 










^171 


026522 


012700 






'172 


026526 


112710 


AAAAAl 

OOOOQ2 




'173 


026532 


112760 


AAAAf A 

OQUQ12 


/■AAAAf 


'174 


026540 


112760 


AAAAA1 

OQOOOl 


AAAAAO 


'175 


026546 


013760 


AAAAXJ 

000064 


AAAA1 O 

000012 


'176 


026554 


105060 


AAA/WW 




^177 


026560 


105060 


AAAAAJ 




P176 


026564 


112760 




AAAAftC 


P179 


026572 


005060 


000006 




'160 


026576 


005060 


000010 




'181 


026602 


012701 


000012 




P182 


026606 


005721 






ri63 










'18* 


026610 


004737 


015674 





25 JAN 64 09:33 PACE 56 
TEST 9 / TESTS M0DIPIE0 RADIAL SERIAL PROTOCOL 

.SBTTL TEST 9 / TESTS NODIFIE0 RADIAL SERIAL PROTOCOL 

BGNTST 



SCO 0119 



T9: 



MOV 4TST9.TSTT0P 
CALL SETUP 
CALL RUN 



EXIT TST 



i SAVE AOOR Of TEST 
iINIT UNITS TSTPC 
lOO TEST 
l DONE 



TST9: 
64t: 



65»: 



MOV 

MOV 

MOVB 

M0VB 

MOVB 

CLRB 

CLR 

CLR 

CLR 

CLR 

MOV 

TST 

NOV 

CALL 

MOV 

MOV 

MOV 

NOV 

CALL 

CALL 

BIT 
BNE 

MOV 

MOV 

MOVB 

MOVB 

MOVB 

MOV 

CLRB 

CLRB 

MOVB 

CLR 

CLR 

MOV 

TST 

CALL 



TRAP 
.UORO 



CIEXIT 
L 10024 



•1.TEST9 
•TR6UF.R0 
♦RSCMND.8R0 
♦RSMSIZ.1CR0) 
•RSSGET.2CR0) 
3(R0) 
4(R0) 
6(R0) 
B.(RO) 
10. (RO) 
♦RSMSIZ.R1 
(Rl) 



•INDICATES 1ST PART Of TST 6 
l FORM COMMAND PACKET 
, COMMAND FLAG 
I SIZE OF MESSAGE 
l GET CHARACTERISTICS 
I NO MODIFIER. 
I NO DRIVE OR SNITCHES 
I NO SEQUENCE NUMBER 
i NO BYTES 
i NO RECORD # 
I GET SIZE 
i»2 FOR CHECKSUM 
♦RSSNSZ.SNDCNKR5) iSIZE TO SEND 

CMKSUM i FORM CHECKSUM 

ftl.(RO) i INSERT INTO PACKET 

4RSDAT A , XSFLGC RS ) I EXPECT DATA PACKET 
#RSGC0P.XSCNT(R5) |THZS BIG 
♦l.XSPK»1(R5) i AND 1 PACKET 
i SEND 

I RE TURN TO SCHEDULER 



RSVP 

DOBRK 

•BIT3.8R5 
641 

42.TEST9 

•TRBUF.RO 

•RSCMND.8R0 

•RSMSIZ.KPO) 

4RSSNIT.2CR0) 

REC.IO.(RO) 

3. (R0) 

4. (R0) 

«BIT03.5.(R0) 
v. (RO) 

5. (RO) 
•RSMSIZ.R1 
(Rl). 

CHKSUM 



I CLR POTENTIAL INTERFACE ERROR 

I RE TRY ?( BAD FLAG) 
|YES 

i INDICATE 2ND PART OF TST 6 

«-->(POINT TO) XMIT BUFFER 
I FORM COMMAND MESSAGE PACK 
I THIS BIG 

lOP CODE IS INITIALIZE 

I TO THIS RECORD 

I NO MODIFIER 

I NO DRIVE 

iSET MRSP SWITCH 

i NO SEQUENCE • 

l 1 BYTE COUNT 

i^T COUNT 

I PLUS FLAG ♦ BCNT 

i FOR CHECKSUM CALC 

,R0- >TOP Rl-» OF BYTES 



D10 
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CZTUUF.PU 



25 -JAW -84 08:09 



1 1 AC 

J loo 




A« At 1 A 

UlUllU 






MAW 
nuv 


' loo 










HAW 


7107 


UcOOlO 


a« 

Ulc f 03 


AAAA1 A. 
UUUUIO 


AAAA7A 
UUUU ' U 


7% it 

/loo 


OcTKXT* 


1 lC '03 


AAAAA3 

UUUUUc 


AAAAXA 
UUUU 3* 


MAUR 
nuvo 


^169 


02oo32 


Ulc '03 


AAAA1 A 

WW 10 


AAAAXA 
UUUU30 


nuv 




OcwO 


a« 5 7*c 

01c /03 


AAAAA1 
UUUUU1 


AAAAX3 


HAW 

nuv 


7191 












/l^C 


OcWb 


AAA 7 V 7 

UU# f3» 


AAAAAA 
UUOOUU 




rai 1 

LnLL 


7 1 Ql 

/1*73 












7 1 OA 










BIT 


71 0«i 

» 1"3 


UcOODc 


AX371 ^ 
U3c ' 13 


AAAA1 A 




7 1 CXI 




AA1 101 
UU13c 1 








71 07 

f W7 












71 OA 


A*>A A A A 

UcOOOU 


A1 37AA 
Ulc ' UU 


A377AA 
Uc ' 




AAA • MAW 

oot ; nuv 


7 1 OO 
'177 


U<*000*> 


1 1 371 A 
1 lC 7 1U 


AAAAA3 
UUUUUc 




HAWR 
nuvo 


7 DAA 


UcOO /u 


113 7* A 
1 lc 'OU 


AAAA1 3 
UUUUlc 


AAAAA1 
WWvl 


MA V/O 




A34JL7A 
UcDO f O 


1 1 37J*A 
11c rOU 


AAAAAA 


AAAAA3 


MAWfi 
nuio 


73A3 


A3A^7AA 
UcO f\J+ 


A1 X7AA 
UIO f ou 


AAAAAA 


AAAA13 


MOW 


' CVJ 


A3A71 3 
UcO r lc 


1U3UOU 


AAAAAX 
UUUUU3 




ri do 


' cU* 


A->c7l A 
UcO r lO 


1 A^AAA 
1U3UOU 


AAAAAA 
WWW* 




ri do 


' CVJ 


/ >3A733 
JcO/CC 


1 1 37#LA 
11c ' OU 


AAAA1 A 
UUUU1U 


AAAAAA 
UUUUU3 


MAUD 

nuio 




A3A7XA 
UcO 7 3U 


AA^A^A 
UU3A/OU 


AAAAAA. 

uuuuuo 






73A7 


UcO r y+ 


AAAAAA 
UU3UOU 


AAAA1 A 
UUUU1U 




V>Ln 


' cUO 


Oct) r*U 


A1 37A1 
Ulc 'Ul 


AAAA1 3 
UUUUlc 




HAW 
nuv 


73/VO 


UcO 7 


AA^731 
UU3 rcl 






t<;t 

1 3 ■ 


731 A 












731 1 


A3A7AA 
UcO r^O 


AAA 7X7 
UU* 797 


A1 XA 7A 
Ul OO 




raj l 


751 3 
'ClC 


A3A7K.3 
UcO 7 3c 


A1 A 1 1 A 
UlUllU 






HAW 
nuv 


701 X 
r eld 












731 A 


UcO rD# 


A1 37CC, 
Ulc r03 


AAAA1 A 
UUUUIO 


AAAA7A 
UUUU f U 


HAW 

nuv 


731 ^ 


A3A7A3 
UcO rOc 


« 1 37AC 
lie rOD 


AAAAA3 

UUUUUc 


AAAAXA 
UUUU 3* 


HAWfi 

nuvo 


731 A 
r ClO 


A3A77A 
UcO r f U 


Al 3 7 AC 
Ulc rod 


AAAA1 A 
UUUUIO 


AAAAXA 
UUUU OO 


HAW 

nuv 


731 7 


UcO r rO 


Al 3 7 AC 
Ulc '03 


AAAAA1 
UUUUU1 


AAAAX3 


HAW 
nuv 


731 A 












731 O 


Uc fUU* 


AAA 7X7 
UU4 f3» 


AAAAAA 
UUOOW 




TAJ 1 


733A 












7331 












7333 


A37A1 A 
Uc r UXU 


AX371 *L 
UJC r 13 


AAAA1 A 
UUUU1U 




Ol 1 


733 X 


A3 7 A 1 A 
Uc fUl^ 


AA1 X31 






OAAC 

one 


7334 












733^ 


A37A1 A 
Uc f u 10 




AAXX3A 




1(VL 


733* 

» CCD 


A3 7 A3 3 
Uc » Ucc 


AACA17 


AAXXAA 




n d 


7337 

r CC r 












73311 
» ceo 


A3 7 A3* 
Uc » UcO 


AAS7X7 


AA333A 




1 3 1 


r c C" 


A37AX3 
vC » UOC 


AA1 j277 






AFO. 


73 xa 

r C Jv 


A37AXA 
Uc 'vj^ 


UU3U3 r 


A3 7 A- 1 3 
Uc '*lc 




ULn 


73X1 
r c^i 


A3 7 AAA 








PRTNTF 


(7) 


027040 


012746 


027236 






(6) 


027044 


012746 


000001 






(3) 


027050 


010600 








(4) 


027052 


104417 








(4) 


027054 


062706 


000004 






7232 


027060 


012737 


003352 


003314 


MOV 


7233 


027066 


017705 


154222 




1»: MOV 


7234 


027072 


005765 


000000 




TST 


7235 


027076 


100431 






BMI 



TEST 9 .' TESTS MODIFIED RADIAL SERIAL PROTOCOL 

Rl.(RC) 



SE0 0120 



1 INSERT INTO PACKET 
1 SET UP EXPECTATIONS: 
♦RSSNSZ . SN0CNT ( R5 ) |H0U MANY TO SEND 
#RSCMND.XSFLG(R5) i EXPECT END PACK 
«RSN0SZ.XSCNT(R5) i COUNT WITH THIS 
♦l..XSPKNM(R5) 1 EXPECT ONLY 1 PACKET 



RSVP 



♦9IT3.BR5 
651 



l SEND 

I AND RETURN TO SCHEDULER 

I RE TRY (FLAG BYTE ERROR)? 
I YES 



i-->(P0INT TO) XMIT BUFFER 
I FORM COMMAND MESSAGE PACK 
i THIS BIG 

l OP CODE IS NO -OPERA, ION 
I TO THIS RECORD 
l NO MODIFIER 
i NO DRIVE 
I SET MRSP SWITCH 
i NO SEQUENCE * 
t NO BYTE COUNT 
i GET COUNT 
l PLUS FLAG ♦ BCNT 
I FOR CHECKSUM CALC 
,R0-->T0P Rl-4 OF BYTES 
t INSERT INTO PACKET 
I SET UP EXPECTATIONS: 
♦RSSNSZ. SNDCNKR5) iHOW MANY TO SEND 
♦RSCMND . XSFLG( RS ) i EXPECT END PACK 
•RSNDSZ.XSCNT(RS) .COUNT WITH THIS 
♦1..XSPKMMCR5) tEXPECT ONLY 1 PACKET 



•TRBUF.R0 
♦RSCMND , BR0 
♦RSHSIZ.KRO) 
♦RSSN0P.2CR0) 
REC.IO.(RO) 

3. CR0) 

4. CR0) 

•BIT03.5.(RO^ 
6.CR0) 

5. (RO) 
♦RSMSIZ.R1 
(Rl)» 

CHKSUM 
Rl.(RO) 



RSVP 



♦BIT3.SR5 
66$ 

DONE 
TEST9 

PPS0T9 
EN0T9 
UNIT NO 
♦MS AGE 1 



♦BLKTBL .DEVPTR 
S0EVPTR.R5 

STATUS(RS) 
SI 



i SEND 

I AND RETURN TO SCHEDULER 

i RE TRY CFLAG BYTE ERROR)? 
I YES 



t PROTOCOL SUMMARY 8 END OF PASS 
sNO 

tSET UNIT ♦ TO ZERO 
i PRINT HEADER 



iSET ALL UNITS 
I GET POINTER 
iIS UNIT ABORTED 
I YES 



MOV 

MOV 

MOV 

TRAP 

ADD 



•MS AGE I. 
•l.-(SP) 
SP.RO 
C*PNTF 

#4.SP 



blO 
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C7TUUF.PH 25-JAN-84 08:09 TEST 9 / TESTS MODIFIED RADIAL SERIAL PROTOCOL S€0 0121 



723o 


027100 


AAC 7CC 

OUO 7oD 


AAAO % A 
0vV210 






TC T 


mo cor ^ 


- TC iCiTT MAATCTCA 

1 Xb UNIT nUUXr ItU 






TOW *? 

7237 


027104 


001413 








OCA 


O ft 

2* 


» klA 






'23© 


02 r luo 














intobWjt r UH nUUXr XtU UNIT 








Oc f 1UO 


U13 r4o 


AO 74 1 O 

02 f 4 12 












nuv 


i AjT Ti^ 

UNX l NO 9 - 


f 7 ^ 


A071 1 O 
02 '112 


O12*4o 


AO7077 

02 72 7 f 












nuv 


•nSAGt2, 


v O J 


U2 # 1 lb 


At 07CC 

Oi2 /4o 


AAAAAO 

vwUUc 












mAu 

nuv 


ao /■ co ^ 
•2 # - v 5P J 


V 3 J 


A071 OO 

02 r 122 


A1 ACAA 

UlOoOU 














nuv 


CD OA 


V 4 ) 


U2 f 124 


1U441 f 














TOCO 




{ A\ 


A071 OC 
Uc ' XcD 


AC 07 AC 
002 f UO 


AAAAAC 

uuuuuo 












AAA 
MUU 


AC CO 




AO 71 TO 
02 '132 


UUU42D 








on 
OH 


A t 


*CPP TT t ACT kAiTT 
I OCC XT LMjl UrlX I 






'24U 


027134 










DDTkJTr 


VnoMlf C 3 t U»MX 1 pHJ 


• hpqcap.p rno kioju MonTrTrn iajtt 

I ntODWjt r UK NW-nUUir ItU UNX 1 








A371 tj 
Uc ' 134 


Al Y71C 
U13 '4© 


A07J1 0 
U2 '*lc 












nuv 


UNX 1 rAJ# - 


^7^ 


A071 1A 
U2 ' 14U 


At 074C 
U12'4© 


Uc ' 333 












nuv 






U2 ' X4* 


Al 07CA 
Ulc '*D 


/|AAAAO 
UUUUUc 












nuv 


ao r co 
•c # - v br* ; 


\ 0 J 


A07«^A 
Wc ' XDU 


Al ACAA 
VI X VOW 














MAU 

nuv 


CD DA 

b** ,HU 


;j\ 

V * J 


A071 ^O 
Uc» 13c 


1 AAA 1 7 














TO AO 


C » rfl 1 r 


C A 1 


A071 g ^ 


AC07AC 
UOc ' UO 


AAAAAC 
UUUUUO 












Ann 

HUU 


CD 
*0 • br* 


'C*X 


A071 AA 


AAA! 1 O 








On 


A t 


t CCC TC | ACT ifuTT 






' C^C 


AO 7 1 AO 
vc » lOc 

AO 71 co 








d* ; 


PQTKlTr 




• MFQQAnp rno arootph imtt 

1 nt J jfHlu r Un MOUn 1 LU vrt X 1 






V 0 ) 


At 

vlO f^O 


A07A1 O 












nuv 






A071 cc 
vie ' IOO 


Al 07CC 
Ulc '*D 


Uc ' jOc 












MAu 

nuv 




v o ; 


A071 70 
U2 f 1 '2 


Al 07 AC 
U12 '4© 


AAAAAO 
UWWc 












MAU 

nuv 


AO t CD 
»c « - V br* J 


K 3 J 


AO VI 7 C 
vc f 1 'O 


Al ACAA 
U1UOUU 














MOW 

nuv 


CP DA 
Or* . HU 


f A \ 
V 4 J 


A070AA 
02 ' CVO 


t AJJ t 7 

10441 f 














TOAD 


r* iDiiTr 

U lr*n| 1 ^ 


f A \ 
14 ) 


A070AO 
02 f 202 


AC Q7 AC 
Uo2 ' VD 


AAAAAC 
UUUUUO 












AAA 


AC CD 
t br* 


70A < 
f c^O 


A070AC 
Uc ' cU© 


AOT707 
Vied ' C ' 


AATX1 A 
UU301* 


AA117A 

UUOJ 'U 


*» • 




ACwpTQ AJ CTftFV 
l/t Vr* 1 H 1 UC V 


• TC TMT<i THP 1 ACT [WTfP 






r c«»^ 


A0701 A 
U2 '21* 


1 AXAAC 
1U3UU© 








oni3 




J » cb 






' c4D 


A070t C 
02 '2l0 


AC9717 

Oo2' 3 f 


AAAAAO 
000002 


OU3314 




HUU 


AO r\CuDTD 
#2 • UfcVH IH 


,fCT icvT | UTT 
|l*tl NtAl UNX l 






70A£ 
f C4© 


A0700A 

02 r224 


AACOT7 
VV023 f 


A0711 O 
02 ' 412 






1NL 


UNI 1 NU 


. Tkl^ 1 Al T T A 
I XNU UMX 1 W 






7 OA 7 
f c* ' 


A070YA 
Uc '23U 


AAA71 C 
UW f X© 








DO 
On 


11 








JO AM. 
' c^O 






















7PAQ 
' C^Tf 


A070TO 
Uc f 23c 


AAAOA7 








KC 1 vrfW 










7>SA 






















70<1 


A070XA 
Uc ' 23* 










CUATCT 










(3) 
















L 10024: 






(3) 


027234 


104401 














TRAP 


CIETST 


7252 






















7253 


027236 


047045 


051445 


022470 


MSAGEl: 


.ASCIZ 


/«WS8«AUNIT N0*S9*S6#APR0T0C0L*N/ 






7254 


027277 


045 


022516 


034523 


HSAGE2: 


.ASCIZ 


•*N#S9«S2*0US9«S9# ARSP/MRSP ! 






7255 


027333 


045 


022516 


034523 


MS AGE 3: 


.ASCIZ 


/*N*S9*S2#01«S9«S9*ARSP/ 






7256 


027362 


047045 


051445 


022471 


MSAGE4: 


.ASCIZ 


/*N*S9*S2*01«S9#S9«A - - - / 






7257 




027412 








.EVEN 










7258 


027412 


000000 






UN IT NO: 


.WORD 











F10 
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SEO 0122 



7261 
7262 
7263 
7264 



000144 



.SBTTL 



PATCH AREA 
.REPT 100. 
.WORD 
.ENOR 



MISCELLANEOUS SECTIONS MACYH 30(1 
CZTUJF.Pil 25 JAN - 84 08:09 



7267 






7268 






7269 






7270 






7271 


027724 


031004 




027726 


032042 




02 7 730 


033100 


'2 '4 


027732 


034136 


'2 O 


027734 


035174 


7276 


027736 


036232 


7277 


027740 


037270 


757B 

/«: f o 


A5774 1 ) 

02 7 742 


040326 


7^75 

r2 f7 


















7262 












7264 


027744 


023 


7285 


027745 


023 


7 5«£ 

'28o 






751 7 

7287 


027746 


001036 


750 a 
' coo 






7289 






75QA 

' t/v 






7291 


031004 


001036 


7292 


032042 


001036 




033100 


00 1036 








7295 


035174 


001036 


7296 


036232 


001036 


7297 


037270 


001036 


7298 


040326 


001036 


7299 






7300 






7501 






7302 


041364 





G10 

) 25- JAN -64 06:33 PAGE 60 
1/0 BUFFER AREAS: 

.SBTTL 1/0 BUFFER AREAS: 

tWMO-GETS-UMAT-SPACE TABLE 

BUFTBL: .WORD BUF0 

.WORD BUT I 

.WORD BUF2 

.WORD BUF3 

.WORD BUF4 

.WORD BUF5 

.WORD BUF6 

.WORD BUF7 



l ONLY 1 TRANSMIT BUFFER NECESSARY : 
.BYTE RSX0FF 

.BYTE RSX0FF ,SEN0 X0FF BEFORE EVERY PACKET 
TRBUF: . BLKB RCBFSZ 



BUFO 


.BLKB 


RCBFSZ 


BUF1 


.BLKB 


RCBFSZ 


BUF2 


.BLKB 


RCBFSZ 


BUF3 


.BLKB 


RCBFSZ 


BUF4 


.BLKB 


RCBFSZ 


BUF5 


.BLKB 


RCBFSZ 


BUF6. 


.BLKB 


RCBFSZ 


BUF7 


.BLKB 


RCBFSZ 


, 







ENDMOD 



H10 
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CZTUUF.P11 25 JAN -84 08:09 I/O BUFFER AREAS: SEQ 0124 



7526 










. TITLE PARAMETER 


CODING 






f 33 ' 


















7t fa 










. SBTTL HARDWARE 


PARAMETER COOING SECTION 






7 \JLJL 


















7X4*7 
( J© f 










BGNM00 


























7XAQ 










Iff 








7X 7 A 










i THE HARDWARE PARAMETER COOING SECTION CONTAINS MACROS 






7X71 
' 3 r X 










< THAT ARE USED 


BY THE SUPERVISOR TO BUILD P- TABLES. THE 






7*72 










I MACROS ARE NOT 


EXECUTEO AS MACHINE INSTRUCTIONS BUT ARE 






7X7X 










i INTERPRETED BY 


THE SUPERVISOR AS OATA STRUCTURES. THE 






7X7A 










t MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 






f O f J 










i WITH THE OPERATOR. 






7X7A 


















7X77 

i O ' f 


















7X7A 


HA 1 XAA 








RGNHRD 

sun w*w 








v o ^ 


AA1 XAA 


AAAAP1 










.WORD L 10025 -LlH 




AA1 XAA 
















7X7Q 


















7XAA 


















7XA1 


CiA 1 XAA 








HPQMA 

Urnnn 


MCf.i A A 1AAAAA 17777 7 YF^ 






f A 


AA1 XAA 


AAAAXl 












TtrnriF 


v ^ y 


AA1 X7A 


AA1 AXA 












MCT.1 


r a i 


AA1 X7P 


1 AAAAA 










UORO 


T*i pi IM 


f A 1 
i ^ y 


AA1 X7A 


1 77777 
X ' * * * * 












TlMl: TM 


7 x«o 


AA 1 X7A 










MQniR P A A 77A YF Q 






r a i 


AA 1 X7A 

V* xo »o 


AA1 AX1 








UGRO 






AA1 AAA 


AA 1 AA1 












■ IJUIO 






AAAAAA 
WWW 










UGRO 

• w\jr*iy 


Til OLTM 


f A 


OA 1 AAA 


AAA77A 
WV f f O 










UGRD 




7XAX 


OA 1 AAA 








GPPML 








f a *> 


AA1 AAA 


AAX1 XA 










.WORD 


T$C00E 


(A 1 


AA1 A1 A 
X*t XV 


AA 1 A^A 










WORD 


MSG1C 


r a *\ 

v ^ y 


AA1 A* P 


AAAAA1 










.WORD 


1 


71AJ 
» JO^ 


AA 111A 








GPRML 


HSG2.4.1. YES 






(A} 


AA1 A1 A 
X^X^ 


AAP1 XA 










.WORD 


TICOOE 


(A} 


AA1 A1 A 
W^X^ X© 


AA1 A7A 










.WORD 


MSG2 


C A} 


AA 1 ADO 


AAAAA1 
VVUUVX 










.WORD 


1 


7XAS 


AA1 APP 








GPRML 


MSGS. 4. 2. YES 






f 4 


AA1 APP 

14CC 


AAP1 XA 
vvclOv 










.WORD 


TICOOE 


C4 ") 


AA1 APA 


AA 1 SI 1 

X-#X X 










.WORD 


MSG3 


f 41 


AA 1 A PA 

I9cO 


AAAAAP 

vVwvvt 










.WORD 


2 


7386 


















7392 


















7393 


041430 
x^ 








ENDHR0 






















.EVEN 




( 3") 

V J y 


A41 AXA 










L10C25: 






7394 


















7395 


041430 


052524 


034065 


041440 


MSG1: .ASCIZ 


/TU58 CSR/ 






7396 


041441 


126 


041505 


047524 


MSG IB : .ASCIZ 


/VECTOR ADOR./ 






7397 


041456 


042120 


020124 


047111 


MSG1C: .ASCIZ 


/POT INTERFACE/ 






7396 


041474 


042524 


052123 


042040 


MSG2: ASCIZ 


/TEST DRIVE 0/ 






7399 


041511 


124 


051505 


020124 


MSG3: .ASCIZ 


/TEST DRIVE 1/ 






7400 










.EVEN 








7401 


















7402 



















110 
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7411 
7412 
7413 
7414 
7415 
7416 
7417 
7418 
7419 
7420 

7421 041526 
C3) 041526 

(3) 041530 

7422 041530 

(4) 041530 
C4) 041532 
(4) 041534 
(4) 041536 
(4) 041540 

7423 041542 
(4) 041542 
(4) 041544 
(4) 041546 

7424 041550 
(4) 041550 
(4) 041552 
(4) 041554 

7425 041556 
(4> 041556 
(4) 041560 
(4) 041562 

7426 041564 
(4) 041564 
(4) 041566 
(4) 041570 

7427 041572 
(4) 041572 
(4) 041574 
(4) 041576 
(4) 041600 
(4) 041602 

7428 041604 
(4) 041604 
(4) 041606 
(4) 041610 

7429 041612 
(4) 041612 
(4) 041614 
(4) 041616 

7436 041620 
(2) 

(3) 041620 

7437 041620 

7438 041665 
7459 041727 
7440 041761 
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SEQ 0125 



000034 



000052 
041620 
001777 
000010 
001000 

004130 
041665 
000001 

001130 
041727 
000001 

003130 
041761 
000001 

002130 
042006 
000001 

005052 
042034 
000377 
000001 
000376 

006130 
042075 
000001 

007130 
042142 
000001 



S8TTL SOFTWARE PARAMETER COOING SECTION 

THE SOFTWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTEO AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



BGNSFT 



GPRMD MSG4.0.U.1777.8..512..YES 



GPRML MSG4B. 10.x. YES 



GPRML MSG5.2.1.YES 



GPRML MSG6.6.1.YES 



GPRML MSG7.4.1.YES 



GPRMD MSG8. 10.. 0.377. 1.254.. YES 



GPRML MSG9.12. .l.YES 



GPRML MSG10. 14.. l.YES 



LtSOFT:: 



. WORD L10026-LIS 



052516 041115 051105 

101 042104 042040 

123 040524 044524 

103 046517 040520 



SFTOUT: ENDSFT 



MSG4: .ASCIZ 'NUMBER OF BLOCKS: TEST 5-8 (8 TO 512)' 

MSG4B: .ASCIZ /ADO OR • TO DATA PATTERN: TEST 5-8/ 

MSGS: .ASCIZ /STATISTICS PRINTEO AT EOP/ 

MSG6: .ASCIZ /COMPARE DATA ON READ/ 



. WORO 


TtCOOE 


. WORO 


MSG4 


.WORO 


1777 


.WORO 


TtLOLlM 


.WORD 


TtHlLIM 


.WORO 


TtCOOE 


WORO 


MSG4B 


.WORD 


1 


.WORD 


TtCOOE 


WORO 


MSGS 


.WORO 


1 


.WORO 


TtCOOE 


.WORO 


MSG6 


.WORO 


1 


.WORO 


TtCOOE 


.WORO 


MSG 7 


.WORO 


1 


.WORO 


TtCOOE 


.WORO 


MSGS 


.WORO 


377 


.WORO 


TtLOLIM 


.WORO 


TtHlLlM 


.WORD 


TtCOOE 


.WORO 


MSG9 


.WORO 


1 


.WORD 


TtCOOE 


.WORO 


MSG10 


.WORD 


1 


.EVEN 





L 10026: 



JiO 

PARAMETER COOING MAC til 30(1046 ) 25 JAN-64 08:33 PAGE 62 1 

CZTWJF.P11 25-JAN-84 06:09 SOT TUARE PARAMETER COOING SECTION SEQ 0126 

7441 042006 051120 047111 020124 MSG7: .ASCIZ /PRINT PACKET ON ERROR/ 

7442 042034 020043 051105 047522 MSGS: .ASCIZ /♦ ERRORS ■ DVC FATAL IF 'EVL'SET/ 

7443 042075 120 044522 052116 MSG9: . ASCIZ /PRINT UNIT PROTOCOL SUMMARY (TEST 9)/ 

7444 042142 042524 052123 047440 MSG10: .ASCIZ /TEST ONLY DRIVE 0 IN TEST 3/ 
^445 .EVEN 
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7448 




000016 


.REPT 14. 


7449 






.WORD 


74 30 






. ENDR 


7457 


042232 




LASTAO 


(2) 








(2) 


042232 


042252 




C2) 


042234 


000006 




C3) 


042236 




LILASTs : 


7456 


042236 




ENOMOO 


7459 








7460 


042236 




BGNSETUP 


7461 


042236 




BGNPTAB 


(4) 


042236 


000000 




(I) 


042240 


000004 




(3) 


042242 






7462 


042242 


176500 


176500 


7463 


042244 


000300 


300 


7464 


042246 


000003 


3 


7465 


042250 


oooooo 


0 


7466 


042252 




ENOPTAB 


C3) 


042252 






7467 


042252 




ENOSETUP 


7466 




000001 


.ENO 



SEQ 0127 



j LASTAO CORRECTION 



.EVEN 

.WORD T*FREE 
.WORD TISIZE 



.MORO 0 

.WORO L10031-. 

L 10027; 



L 10031: 



PARAMETER COOING 


MACV11 


30C 1046) 


25 -JAN- 


84 08:33 PAGE 


CZTUUT.PU 25-JAN-84 


s\ a s\A 

08:09 




CROSS REFERENCE 


TABLE • 


A6N0X • 


000004 G 


a "tsx a a*. 

4203* 


6002* 


6015 


6017 




A80 


013166 


6012 


6026 


6039 


6055* 




ABOMSG 


017300 


6761 


6791* 








A80NM 


006552 


5123* 


5140* 


5145 


5153* 




ADR 


000020 G 


3962* 










ALLGON 


003342 G 


A • T T A. 

4177* 


5149* 


6625* 


6717 




ASSETO- 


000010 


V T^O 

3772 










BDATA - 


000134 G 


4260# 


* M. AX 

6496 


6506 






B06YTS 


014746 


f "W A A » 

6344* 


X ICC i 

6355* 


6358 


6363 


X V ^ V A 

6373* 


BOCHK - 


000022 G 


1AAAA 

3990* 


C1AA 

5708 


5765 






BDCOH - 


000014 G 


V AO ^ A 

398 7# 


5815 


6027 






BITO • 


000001 G 


f A£ OA 

3962# 


4935 


5536 


6018 


6129 


BTTOO ■ 


000001 G 


3962* 










BiTOl » 


000002 G 


3962* 










BIT02 • 


000004 G 


3962* 










BIT03 - 


000010 G 


3962# 


7178 


7205 






BIT04 - 


000020 G 


f A/ OA 

3962* 










BIT05 • 


000040 G 


3962# 










BIT06 - 


000100 G 


39o2# 










BIT07 • 


000200 G 


3962 ♦ 










BIT08 - 


000400 G 


VAX OA 

3962* 










BIT09 * 


001000 G 


3962* 










BIT1 » 


000002 G 


3962* 


t « AC 

5105 


5296 


5537 


exn 
5637 


BITIO • 


002000 G 


3962* 


ei AV 

5103 


5225 


5821 


C A A « 

5841 






7054 


7115 








BIT11 » 


004000 G 


tax o a 

3962* 


£. A QO 

6482 


6562 


6583 


X X Si A 

6684 


BIT12 * 


010000 G 


f AX OA 

3962 * 


XOJ A 

6944 


6979 


7022 


^A A A 

7084 


BIT13 - 


020000 G 


OA 

39b2* 


CAAf 

5093 


5101 


5724 


c wx 

5736 


BIT14 « 


040000 G 


VAX OA 

3962* 


C 4 OA 

5129 


5132 


5942 


X OX A 

6268 


BIT15 - 


100000 G 


tftX OA 

3962* 


A AV V 

4933 


5112 


5338 


5360 






* r A\ n 

6684 


6758 








BIT2 ■ 


000004 G 


VAX O » 

3962* 


f « AA 

5100 


5114 


5296 


A A V A 

5538 


BIT3 » 


000010 G 


VAX O A. 


5091 


5539 


5688 


A It J 

5724 






V AC V 

7053 


7084 


7115 


7166 


^ « AC 

7195 


BIT4 - 


000020 G 


VAX OA 

3962* 


CO« A 

5219 


5223 


5540 


6074 


BIT5 « 


000040 G 


3962* 


5241 


5243 


5541 




BIT6 - 


000100 G 


V AX O A. 

3962* 


CC A O 

5542 


5812 


5873 


x oa c 

6245 


BIT7 » 


000200 G 


VAX OA 

3962* 


CCA V 

5543 


5641 


5849 


C ACC 

5855 


BITS » 


000400 G 


V AX OA 

3962* 


A AVO 

4972 


5095 


5229 


cove 

5238 


BIT9 ■ 


001000 G 


VAX O A 

3962* 


4937 


5213 


5816 


A AAA 

5845 


BLKENO- 


000202 G 


4280* 


XX AA 

6600 








BLKER 


003334 G 


A • ^ A A. 

4174* 


CO* A a. 

5210* 


6633* 






BLKSIZ- 


000212 G 


A OCA A 

4284* 


A VAX 

4306 


4307 


4308 


A VAA 

4309 


BLKTBL 


003352 G 


a OAA A 

4294* 


A AV € 

4931 


4969 


4994 


5037 






£ ^ AO 

6782 


^o vo 

7232 








BOE 


000400 G 


VAX OA 

3962* 










BfcKPTR 


014566 


X OA A a. 

6244* 


X OCOa 

6252* 


6259* 


6310 


x v oa a 

6324* 


BRKTO 


014564 


6217* 


X O AX A 

6226* 


6232* 


6242* 


6250* 


BRKUO 


014560 


X O V « 

6231 


X V OA A 

6320* 








BUFTBL 


027724 


XCX Jl 

6564 


VO V « A 

7271# 








BUFO 


031004 




7 OA 4 A 








BUF1 


032042 


7272 


7292* 








BUF2 


033100 


7273 


7293* 








BUT 3 


034136 


7274 


7294* 








BUF4 


035174 


7275 


7295* 








BUF5 


036232 


7276 


7296* 









L10 



64 

• USER SYMBOLS 



SEQ 0128 



6130 


6132 


6143 


6218 










5801 
5849 


5872 
5870 


6944 


6945 


6979 


6980 


7022 


7053 


5605 
6589 
5403 


5422 


5442 


5473 


5645 


5807 


656i 


6608 


5637 
5736 
7222 
6220 


5801 
6895 


5603 
6913 


5872 
6944 


6945 


6979 


6980 


7022 


6253 
5857 
5834 
5928 


6260 
5859 
5863 
6592 


6276 
5870 
6590 


6277 
6979 


6289 
6980 


6297 


6364 




4310 
5087 


4311 
5124 


4312 
5401 


4313 
5643 


6476 


6557 


6577 


6682 



6314* 63234 



M10 
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^Of 1 AAA 1 


25- JAN- 
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P7T| ■ ar 

LZ I Uvr . 


Of 1 OC |AkJ Oil 


AA • OQ. 




CROSS REFERENCE 




Ql BT £. 


UO fCfU 


7P77 


7P97A 








OUT f 


v**VOcO 


7P7A 


7PQAA 








ADl C 

CAWLr 


A« Cl £a 


AAAP 


A AAA 


6413* 








UlOOAO 


ASA 7 


AS7PA 

OO ' Cw 








PUtf AklO 


Al 


SAA 1 
DO** A 


SASX 


5657* 






ruv Aye 


VAVOXO u 


SOAP A 










ptavcuft 


/Ml TOO 

VAAocc u 


S71 3a 

3 r AO* 


S7A1 A 

O fOl* 


5798* 








Al 4 aoC 


CO 1 t 


SA1 AA 








i»nr\F*r\o 


A1A70A 17 
VAVrcO u 




SAS1 A 


5687« 






f MVP TO 


Al 




SAAA 

Ow***t 


5652 


5654* 


SASQA 


LHfVKtt 




SAAA 


SAPSA 










Al OAA A 
VAcv^«> 


SAOQ 

JOV7 


SA14 


5817 


5820 


SAP A 


ruvci IT* 




SAOAo 


SAPSa 
00c 0* 


5907* 






ruvci 04 


Al XA7A ft 


D1C f w 


l%1 70a 

OA • V* 


6895* 


6913* 


AQAAo 






71 A4a 


7P11A 
f Cll* 










Al OATA 
U1UOO© 


SATO 


SAA3A 










Al T770 ft 


S706* 

•/ f VA>* 


S7A4* 


5756* 


6167* 




n OAi i 

LLnHLL 


AAS7XA ft 


AQQAA 


SP99a 










AAS77A ft 

WO r f V U 


AQQAm 


SOlPd 

JwlCw 


5302* 






n DO TO 


AAAOPO 




499S 


4997 


4999* 


SAPPA 
PVccw 




AAA 1 AA ft 
vwlW V 




SPPP* 

JCCC ¥ 


5914 


5918 


O7OA 




AAAAAA ft 


3997* 


S9SP 

J *JC 










AAOOI A 


TO 07 A 


A 34 A 








PttTMTTa 


AAAATO ft 
VWVOc U 


3994* 

w a a 


AP7P 

vC f C 








POMP AO 


A1AS70 ft 


57PPo 


S7AA* 


6341# 






r^MDMV 




41 AAA 

■*lW*w 


SPA 7 

JCv f 








L3nt VD 


WOOOV u 


Al ASA 


00 f 0 








PI All a 




Off cw 


CAM 








C iAlJTOa 


AAAAA1 


w * ( C w 


AAQ3 








P ft RPK a 


AAAOPO 


Off Cw 


SOAO 


5148 


5271 


SSOS 




AAAAAA 
WWW 


Off Cf 












AAAAAO 


Off cf 














Off fc" 












AAAAAO 


X770A 
Off cw 










rtpi PAa 


AAAA1 O 


377PA 

Off C w 


A7A3 








Tin nsa 


AAAAK 


X77PA 
Off Cf 










PiPl PI a 


OOOOOA 
WVWO 


377PA 
Off cw 










pi cwcm 

\m V\m ILL 


OOOOXA 


Off 4ZW 


AP7A 


6280 


6692 






OOOOAA 


Off 


Si so 


6575 


6595 






AAAAC1 
WvvJl 


Off cw 


AOS 7 

OVJ f 


6704 






r tnopTa 


OOOOPA 

vvwc*> 


Off cw 


A7P1 
O f c A 








Ptnu a 


VAAA/JJ 


Off cw 


A7A1 
O r OA 








PlFOTTa 


AAAAAT 
WVWO 


377PA 
Off cw 


3A1S 
OOAO 










AAAACC 
wWvJJ 


Off cw 


AOI 1 
OVA A 


6025 






CIFRHRs 

w ▼ Lnnn 


vWVJQ 


Off cw 


AOXA 
ovoo 


6053 






CiFpona 


OOOOAO 

wwov 


Off cw 












OOOOSA 
\^/W O^ 


Off cw 


S1A7 


6574 


6594 




PiFRSO* 


OOOOS7 


X77PA 

Off Cw 


A031 

OVO A 


6049 


6362 




piESPA* 


AAAAI A 
WW AV 


Off cw 










C«ESEG« 


ooooos 


Off cw 










CIESUB- 


000003 


3772* 










CIETST- 


000001 


3772* 


6900 


6927 


6962 


7004 


C*EXIT- 


000032 


3772w 


6693 


6907 


6937 


6972 


CtGETB- 


000026 


3772* 










C*GETW" 


000027 


3772w 










C$GMAN« 


000043 


3772* 











SEQ 0129 



5842 
6945a 



5850 
6979* 



5858 
6980* 



5860 
7022* 



5872* 
7053* 



7084* 7115* 7156* 



6080 



6219* 



5595 6222 6312 6313 



6475 



6478 



6480 



7036 
7012 



7067 
7043 



7098 
7074 



7129 
7105 



7251 
7141 
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CROSS REFERENCE 


TAQI C 


- USER SYMBOLS 










CIGPHR- 


000042 


of few 


£COt 

ODOl 




















CIGPLO- 


000030 


37 few 






















CIGPRI- 


000040 


37 few 






















C*INIT- 


000011 


3772w 


6662 




















CIINLP* 


00O020 


of few 






















CiriANI* 


000050 


37 72* 






















CIMEH ■ 


000031 


Of few 






















CIMSG - 


000023 


of few 


DUO f 




















CIOPEN- 


000034 


3 f few 






















CIPNT8- 


000014 


3 7 few 


Cfli 7 
DO* f 


6077 


6060 


£Afil 


6363 






7238 






CIPNTf- 


000017 


3 f few 




6397 


6402 




6701 


6761 


7P31 


7240 


7P4P 

» etc 


CIPNTS- 


000016 


of few 


£477 

o*# f f 


6479 


6495 


04^0 


6506 


5662 










C*PNTX- 


000015 


3 f few 


DO CO 


5626 


5631 


eon 

OOOO 


5654 










CIQIO - 


000377 


1773* 

3 f few 






















ciRoeu- 


000007 


3 f few 






















CIREFG- 


000047 


1773* 
3 f rc» 






















CIRESE- 


000033 


1773* 

3 f few 


ODD© 


6742 


















CIREVI- 


000003 


1773* 
3f few 


1JI1 c 

3013 




















CIRFLA- 


000021 


3f fe» 


Ctl3 
OOOc 




















C*RPT - 


000025 


»77*\a 

3772# 


/CI A 

6519 




















C$SEPG- 


000046 


3772# 






















CISPRI- 


000041 


3 7 f ew 


OcO f 




















CISVEC- 


000037 


3 f few 




6240 


6661 
















CITPRI* 


000013 


1773* 
3 f f c» 






















DESC 


014750 


0303 


£171* 
















6557* 


6559 6566 


DEVPTR 


003314 G 


■11. DOW 


OVO f • 


5066 


5116 


ci OA* 


5124* 


5125 


5141 


5143* 




ODf f* 


OS f*9 


6626* 


7232* 


feOO 


7243 


7245* 










OEVO 


003372 


4cTF* 


43UOw 




















DEVI 


003604 


J3AC 


J1A7A 




















DEV2 


004016 


4<?Tf© 


J1AA* 

43UOw 




















0EV3 


004230 


4c7 f 


43V7W 




















0EV4 


004442 




111 A* 




















0EV5 


004654 


4299 


4311* 




















DEV6 


005066 


4300 


4312* 




















DEV7 


005300 


* 1A1 

4301 


* ii i* 
4313* 




















DFPTBL 


002176 G 


•» /\* 

3860w 






















DFTL1 


013014 


6023* 


6024* 


60254 


















DIAGMC- 


000000 


3772 




















5603 5605* 


OLV 


000074 G 


* in * 
4231# 




5444 


5475 


^7A* 


5577 


5576 




5601* 


JvvC 






OUOl 


£A*1 


6064* 


6298* 


f'XJQ 


6300 


6302* 


6623* 








006RK 


014030 G 


Dill* 


D131* 


62164 


7164* 














7126* 7225* 


DONE 


003324 G 


A 1 7AA 

41 rUf 


CAH * 
DU3©* 


5056 


6896* 


O^IO* 


6960* 


6995* 


7033* 


7064* 


7095* 


OR 


000060 G 




ioic 


4937 


4939* 


1Q7« A 
4Tf f 1* 


4972 


4974* 


6077 


6108 


6586* 


6590 6592 




*\o** 

OTF4* 


©T#4D 


6979 


6980 


fVCl 


7022 


7052 


7053 


7083 


7084 


7114 7115 


DRVCHK 


002220 


30OOW 


7A1 0 

f Ul7 


7050 


7081 


7113 

flic 














D0T3FL 


002226 


30?1# 


* QCA 




















EF . CON- 


000036 G 


3TfDcw 






















EF.NEU- 


000035 G 
























EF.PWR- 


000034 G 


39o2# 






















EF.RES- 


000037 G 


10^3* 






















EF.STA- 


000040 G 




6553 




















EN0GP8 


010166 


5400 


5497 


54994 


















ENORSP 


007120 


5199 


52514 




















EN0T9 


027232 


7229 


7244 


72494 








6070w 


6362 








ERRDES 


013210 G 


6011 


6025 


6031 


6038 


6049 


6053 








ERRHOO 


010170 


5464 


55014 





















SEQ 



6568* 



5726 



6913 



PARAMETER COOING 


MAC* 11 


30( 1046) 


25 -JAN 


-64 08:33 PA( 


CZTUUF.PU 25- JAN 64 


08:09 




CROSS REFERENCE 


TABLE 


ESABO - 


177720 G 


4054# 










ESCKS - 


177757 G 


4065# 


*/VC 7 

4067 


4066 


4069 


5926 


ESCKSM- 


177757 


4067# 










ESCND - 


177720 G 


4063# 


CAKA 

5950 








ESNCRT- 


177767 G 


4055# 


3943 








ESNOMO- 


177737 G 


*S\*\ 3 A 

4062# 


CA31 

394? 1 








ESNONX- 


177770 G 


4056# 


5953 








ESOK • 


000000 G 


jAC?A 

4057# 


3909 








ESP ART • 


177776 G 


4ACAA 


3**© 3 








ESRO - 


177757 


JA/AA 

4Uo9# 










ESREC - 


177711 G 


iAXIA 


CO 7 A 

3^# r U 








ESSK - 


177740 G 


JACQ4 


CQ1A 








ESSLF - 


177777 G 


4Qo6# 










ESTRY - 


000001 G 


JA/AA 

40o0# 


CA1 3 

5912 








ESULOC- 


177765 G 


A/Ul * 

*U©lV 










ESUR * 


177757 


4Qd5# 










EVL 


000004 G 




6U1^ 








EVLTHR 


002222 


f 4AA 


£A3i 

OUc 1 








EXOFF 


007447 


Ct?tA 

33 f Jf 


CAll 

3400 


5586 






EXON 


007446 




c 173* 
33 rev 


5417 


5596 


U.A* 

3606 


EtEND - 


002100 


3 r fCf 










EtLOAO- 


000CS5 


3 r few 


3013 








FLGLOC 


016774 G 




663c* 


66714 






FH 


015750 


647>6 


63Q6 


65294 






FNO 


015732 




£C3X* 
03£6# 








FTLNN 


003322 




JLA*3 

OU"c 








F$AU - 


000015 


3 r f 2# 


6ov3 


6826 






F*AUTO- 


000020 


1773* 

3 7 729 


7Q 

66 f7 


6693 






FIBGN - 


000040 


1773* 

31729 


17A* 

3 r90 


3824 


3902 


tii*e 

3955 








< 7* # 

6 7 Id 


6753 


6803 


oooo 






£A£3 

6962 


#*7A 

69 7%) 


6972 


7004 


7AI f\ 

7010 






71 /\l 

f 103 


71 AC 

r 1U3 


7129 


7134 


714* 

7141 






74^ 

r4o6 


r4fO r 








FICLEA- 


000007 


1773* 
3 r f 29 


6 r 16 


6743 






FIOU • 


000016 


1773* 
3 r 729 


6 r33 


6761 






r»END - 


000041 


1773* 


3 r98 


3902 


3955 


6067 






£74* 

6743 


6 '51 


6826 


6888 


6691 






69 70 


697? 


7004 


7010 


7*1 3 

7012 






r 1U3 


1% *3>Q 


7134 


7141 


7251 






74^7 
f #0 r 










FIMARO- 


000004 




717* 
' 3 '5 


7393 






F$MW • 


000013 


1771* 

3 r r2# 


3560 


3873 






FIINIT- 


000006 


1773* 

37 729 


/tit 


6662 






FIJMP - 


000050 


1773* 


4*A1 

6693 


6907 


6937 


6972 


FIMOO ■ 


000000 


1773* 

37729 


3796 


3902 


3955 


6416 


FIHSG - 


000011 


1775* 

37 729 


£A7A 

6U rw 


6087 






FIPROT- 


000021 


1773* 
3r fcf 


3524 


3826 






npw - 


000017 


1773* 
3 r fcf 










FIRPT • 


000012 


1773* 
3/ rev 


645 r 


6519 






FtSEG • 


000003 


3 f r tff 










FISOFT- 


000005 


*J t f c w 


7421 
r ^ci 


7436 






FISRV • 


000010 


37724 


6267 


6291 


6295 


6304 


FISUB • 


000002 


37724 










FISU - 


000014 


37724 


3862 


3900 






FITE3T- 


000001 


37724 


6891 


6900 


6905 


6927 






7072 


7096 


7105 


7129 


7134 



Bll 



64-3 

- USER SYMBOLS 



SEQ 0131 



6070 
6891 
7012 
7251 



6267 
6893 

7036 
7302 



6295 
6900 
7041 
7367 



6416 
6905 
7043 
7378 



6460 

6907 
7067 
7421 



6467 
6927 
7072 
7458 



6535 
6935 
7074 
7460 



6545 
6937 
7096 
7461 



6291 
6893 
7036 
7302 



6304 
6900 
7041 

7367 



6416 
6905 
7043 
7393 



6460 
6907 
7067 
7436 



6519 
6927 
7072 
7458 



6535 
6935 
7074 
7460 



6662 
6937 
7098 
7461 



6693 
6962 
7103 
7466 



7012 
6460 



7043 
6535 



7074 
6666 



7105 
7302 



7141 

7367 



7458 



6935 

7251 



6962 



6970 



7004 



7010 



7036 



7041 



'06' 



PARAMETER CODING 


MACU1 


50(1046) 


25 JAN 


64 06: 


55 PAG! 


CZTUUF. 


Pll 25 JAN 54 


08:09 




CROSS REFERENCE 


TABLE 


G8TMP 


010612 


5572* 


5562* 




5593 


5612* 


G8TMP2 


010614 


5567* 


5596 




5607* 


5610 


GETANS 


007172 G 


5056* 


5295# 








GETMRO 


016540 


6575 


6577# 








GETPTR 


007236 


5507# 










GETR5 


017246 


6757* 


6762# 








GTAGIN 


007504 


5402# 


5494 








GTBtTE 


010566 G 


5337* 


5557* 


5421* 


5441* 


5472* 


GTDOUN 


010124 


5406 


5410 


5425 


5456 


5440 


GTOK 


007750 


5429 


5449# 








GTPKS1 


007240 G 


5304* 


5S~4# 








GTPKS8 


007450 G 


5300* 


5595# 


5496 






GTPTR 


010564 


5401* 


5402 


5491 


5495* 


5546# 


GTUM 


007712 


5454 


5456# 








GICNTO- 


000200 


3772# 










GIOELH- 


000572 


3772# 










GIOISP- 


000005 


3772# 










GIEXCP- 


000400 


3772# 










GIMIL T * 


000002 


3772# 










GILOLI- 


000001 


3772# 










GINO • 


000000 


5772# 










Giorrs- 


000400 


5772# 


7561 


7562 


7565 


7564 






7429 










G$OTSI» 


000576 


5772# 


7361 


7562 


7565 


7564 






7429 










GIPRHA- 


000001 


3772# 


7361 


7562 






GSPRMD* 


000002 


3772# 


7422 


7427 






GIPRH.- 


000000 


3772# 


7365 


7564 


7565 


7423 


GIRAOA* 


000140 


5772# 










GIRADB- 


000000 


3772# 










GIRADO- 


000040 


3772# 


7422 


7427 






GIRAOL- 


000120 


3772# 


7363 


7364 


7565 


7423 


GIRAOO- 


000020 


3772# 


7361 


7362 






GSXFER* 


000004 


5772# 










GlrES « 


000010 


5772# 


7361 


7362 


7363 


7364 






7429 










MAROR - 


000156 G 


4261# 


6491 


6501 






HAROW ■ 


000140 G 


4262# 


6495 


6505 






HELP ■ 


000000 


5757# 


5767 


5769 


3607 


5650 






4556 


4541 


4349 


4356 


4561 






4912 


4916 


4924 


6422# 


6640 






6675 


6679 


7305 


7506 


7518 


HOE 


100000 G 


3962# 










HRO 


015146 


6045 


6051* 








HPORO * 


000016 G 


5966# 


5665 








HROWR ■ 


000020 G 


5969# 


5667 








MROl 


011766 


5652 


5661# 








IBE 


010000 G 


3962# 










IDPTR 


005526 G 


4171# 


5057* 


5056 


5040 


5042* 


IDU 


000040 G 


5962# 










IER 


020000 G 


5962# 










INIT 


016204 


654 7# 










INI TWO 


014562 


6216* 


6245 


6251 


6256 


6265 


INIT2 


016254 


6554 


6557* 








ISR 


000100 G 


3962# 










IXE 


004000 G 


5962# 











Cll 



64 4 

USER SYMBOLS 

5616* 
56194 



SEQ 0132 



5572# 
5443 



5447 



5474 



5478 



5400 



5486 



54904 



7385 
7385 



7422 
7422 



7423 
7423 



7424 
7424 



7425 
7425 



7426 
7426 



7427 
7427 



7428 
7426 



7424 7425 



7426 



7428 



7429 



7424 7425 7426 
7385 7422 7423 



7426 7429 
7424 7425 



7426 



7427 



7428 



3845 
4367 
6650 
73294 



3867 
4863 

6723 
7387 



3893 
4875 

6730 
7403 



3907# 
4880 

6763 
7430 



4686 

6769 
7451 



3964 
4891 

6806 



4314 

4897 
6812 



4320 
4905 
68324 



6271 



63214 



Di 1 



PARAMETER COOING MACU1 i0(!046) 25 JAN 64 03:33 PAGE t>« 5 

C7TUUF.PH 25 JAN 94 08s 09 CROSS REFERENCE TABLE USER SYMBOLS 



SEO 0133 



ISAU 

HAUTO 

ItCLN 

ItDU 

I IHRO 

ItlNIT 

KMOO 

I«MSG 

IIPROT 

ItPTAB 

I SPUR 

IIRPT 

ItSEG 

IISETJ 

IISFT 

ItSRV 

KSUB 

I«TST 



J«JMP - 

LENGTH 

LGOTST. 

LNCNT 

LOE 

LOG 

LOGO 

LOGOK 

L0G0K2 

LOGO 

L0G1 

L0G2 

LOGS 

LOG 38 

LOT 

LSTOEV 

L«ACP 

L $APT 

L«AU 

L«AUT 

LIAUTO 

L«CCP 

LfCLEA 

L$CO 

LIDEPO 

LtOESC 

L«OESP 

L IDE VP 

LIOISP 

HOLY 

LIDTP 

LIDTvP 

L»DU 

L«OUT 

LIJVTV 



000041 
000041 
000041 
000041 
000041 
000041 
000041 
000041 
000040 
000041 
000041 
000041 
000041 
000041 
000041 
000041 
000041 
000041 



000167 
002210 
000120 G 
015150 
040000 G 
012654 G 



013176 
012742 
013026 
012730 
013044 
013074 
013134 
013156 
000010 
003370 
002110 
002036 
017326 
002070 
016776 
002106 
017160 
002032 
002011 
002122 
002076 
002060 
002152 
002116 
002040 
002034 
017202 
002072 
005512 



37724 

37724 

37724 

37724 

73784 

37724 

37724 

37724 

37724 

37724 

37724 

37724 

37724 

37724 

74214 

37724 

37724 

37724 

70104 

7141 

37724 

36644 

42514 

6395* 

39624 

5277* 

6317* 

6032 

6010 

6020 

60114 

6029* 

6036* 

6047* 

6051* 

39624 

43014 

36154 

38154 

3615 

36154 

3615 

36154 

3615 

36154 

36154 

3615 

36154 

36154 

3615 

36154 

36154 

36154 

3615 

36154 

3815 



66034 
66794 
67164 
67534 
73934 
65454 
37964 
60704 
36244 
74614 

64674 

6891 

74604 

74364 

62874 

6691 

66914 

7012 

72514 

6634 
6003 
6400* 

5616* 

6050 

60134 

6022 

6030* 
6037* 
6046* 
6052* 

4941 



66034 
66794 
67164 

36174 

36434 

67534 
43344 



66264 
66934 
67434 
67614 






















66624 
39024 
60874 


39554 


64164 


6460* 


6535# 


6668* 


7302# 


73674 


74584 






74664 






















65194 

6905 

7461 


6935 
74674 


6970 


7010 


7041 


7072 


7103 


7134 








62914 
6905 
6693 
70364 


62954 
6935 
69004 
70414 


6304# 

6970 

690S# 

7043 


7010 
6907 
7067# 


7041 

6927* 

7072# 


7072 

6935* 

7074 


7103 
6937 
70964 


7134 

69624 

71034 


69704 
7105 


6972 
71294 


7C044 
71344 


64094 






















5709* 


5729* 


5738* 


5766* 


5816* 


5839* 


5866* 


5976* 


59954 


6229* 


6273* 


60584 






















60274 






















60314 
60364 
60494 
60534 






















4975 


4997 


5040 


5118 


5141 


5491 


5652 


6507 


6566 


6688 


7243 



Ell 



PARAMETER COOING 


MACY11 


30( 1046: 


C2TUUF.P11 25-JAN-84 


06:09 






002052 


G 


38150 




L JfcNVI 


002044 


G 


3815* 




1 IE TO 


002102 


G 


38150 




i (CyOI 


002046 G 


38150 






002064 


G 


3815# 




1 tPvD^ 


002066 


G 


3615# 






041366 


G 


3815 


73780 


t IUTMF 

i #nxnt 


002120 


G 


3615# 




U inrLr 


002016 


G 


36150 






002022 


G 


3615# 






002176 


G 


3615 


38600 


L » It" 


002104 


G 


3815# 




1 1TMTT 


016204 


G 


3815 


65450 


1 11 AftP 


002026 


G 


3815# 




1 il A^T 


042236 


G 


3815 


74570 


1 il ftAD 


002100 


G 


3815# 




1 il ill 


002074 


G 


36150 


6000* 


I iMPPw 


002050 


G 


36150 




1 iMAMF 


002000 


G 


3615* 




1 iPOTO 


002042 


G 


3815# 




1 iPOOT 


002142 


G 


3615 


38240 


1 iPOT 


002112 


G 


36150 




i iOPPP 


002062 G 


3815# 




I iPPw 


002010 


G 


36150 




1 iPPT 


015170 


G 


3815 


64670 


1 iQOTT 


041530 


G 


3815 


74210 


i iQPr 


002056 


G 


38150 




V- v jr 


002020 


G 


38150 




1 iQPTP 


002024 


G 


38150 




1 iQTA 


002030 


G 


38150 




i iQu 


002210 


G 


3815 


38620 


I iTF^T 


002114 


G 


38150 




1 iTTM 


002014 


G 


38150 




1 ilMTT 


002012 G 


38150 


6572 




002206 




3860 


38730 


i- X WV/fc 


002230 




3862 


39000 


1 KWkX 


013400 




60870 






014466 




62910 




L lOOOS 

\- A WW J 


014522 




63040 






015612 




65190 




L10007 

i- X WW » 


016704 




66620 




L_ X WXw 


017102 




66930 






017200 




67430 




X WXC 


017244 




67610 




L IOC 13 


017326 




68260 




w XWX~ 


017530 




6893 


69000 


L. X W X J 


020002 




6907 


69270 


L 10016 


021374 




6937 


69620 


L10017 


023000 




6972 


70040 


L 10020 


023770 




7012 


70360 


L 10021 


024554 




7043 


70670 


L 10022 


025544 




7074 


70980 


L 10023 


026330 




7105 


71290 


L 10024 


027234 




7141 


72510 


L 10025 


041430 




7378 


73930 


L 10026 


041620 




7421 


74360 



25 IAN-84 08-33 PAGE 64-6 
CROSS REFERENCE TABLE -- USER SYMBOLS 



SEQ 0134 



7467 

6001* 6360* 6361* 6580* 



6626 



Fll 



PARAMETER COOING 


MACY11 


30( 1046 


CZUAJF.P11 25-JAN-84 


06:09 




L 1002 7 


042242 


746 1# 




L 10031 


042252 


7461 


7466* 


MA8EE 


013106 


6035 


604 It 


MESMRS 


010220 


5502 


* A AC A 

5505# 


MOORSP 


010272 


5466 


5507* 


MRSQL t 


010274 


c AAA a. 

5455* 


5460* 


MRSP * 


000210 G 


A AO "W M. 

4203* 


a * aa 

5196 


MS AGE 1 


027236 


7231 


7 AA V A 

7253# 


MSAGE2 


027277 


7238 


7<%r« a 

7254 ♦ 


MSAGE3 


027333 


7240 


T AA A A 

7255* 


MSAGE4 


027362 


7242 


7256# 


HSAUTO 


017140 


6701 


A\ ^ A£ A 

6706* 


MSBOA 


002342 G 


A 4 AO A. 


6362 


MSCMO 


002706 G 


4093 


4130* 


MSCOM 


002406 G 


A A A 9 

4063 


O 4 4 AO 

4112* 


MSG1 


041430 


7381 


7395* 


MSG IB 


041441 


7362 


7396* 


MSG1C 


041456 


711* 

7363 


7* A7 A 

7397* 


MSG10 


042142 


7429 


7i A A O 

7444* 


MSG2 


041474 


7l*i 

7364 


7396* 


MSGS 


041511 


7365 


7399* 


MSG4 


041620 


7422 


7i V ^O 

7437# 


MSG4B 


041665 


70 A» 

7423 


7J V A O 

7436* 


MSGS 


041727 


7 A ~%A 

7424 


7i * AO 

7439* 


MSG6 


041761 


7j -jC 

7425 


7i O AO 

744 Q* 


MSG7 


042006 


7 A A* 

7426 


7J A • O 

7441* 


MSG6 


042034 


^ A ">7 

7427 


71 O AO 

744 j?* 


MSG9 


042075 


7 A A A 

7428 


^ a a vo 

744 3# 


MSMCMK 


002560 C 


A AS/ 

4066 


4122* 


MSHDRO 


003156 G 


AAA A 

4064 


4146* 


MSK>WR 


003220 G 


A MAC 

4065 


A < O AO 

4148* 


MSNIT 


002622 G 


4090 


A * AO O 

4124* 


MSNLOG 


002324 G 


A A^^ 

4077 


A AAA 

4096 


MSNOMO 


002450 G 


A AAA 

4069 


4114* 


MSNOTP 


002466 G 


A AAA 

4099 


4116# 


MSNRSP 


002766 G 


O AA7 

4097 


A * M O 

4136* 


MSOVRN 


003262 G 


4062 


A * AAA. 

4150# 


MSP ART 


002636 G 


4091 


4126* 


MSQRSP 


003002 G 


a AO * 

4061 


4136* 


MSREC 


002722 G 


A AAA 

4094 


4132* 


MSRNIT 


002540 G 


A AS A 

4060 


4120* 


MSSELF 


002366 G 


A AAA 

4095 


4110* 


MSSTRO 


003056 G 


A A"9 O 

4076 


4142* 


MSSFUR 


003116 G 


4079 


4144# 


MSSKER 


002310 G 


A AO 7 

4067 


4104# 


MSTOSN 


003034 G 


4100 


4140* 


MSUNIT 


002660 G 


A AAA 

4092 


A « A A a 

4128* 


MSUPRO 


002516 G 


A AAA 

4066 


O 4 • A O 

4118* 


MSURSP 


002742 G 


A AA^ 

4096 


4134* 


MXRTRY 


003332 G 


O « ^ V A 

4173* 


A AC « 

5651 


NCART - 


000054 G 




CQJ7 


NOORVS 


016736 


6594 


66674 


NOMOP 


006554 


5147 


51544 


NOMOT - 


000030 G 


39934 


5923 


NOPEE 


011354 


5602 


56064 


WONIT- 


000036 G 


39964 


5957 



25-JAN-64 08:33 PAGE 64-7 
CROSS REFERENCE TABLE -- USER SYMBOLS 



SEQ 0135 



55094 
5396 



5465 



5649 



5720* 5760* 6624* 7236 



41064 



Gil 



PARAMETER COOING 


HACY11 


30(1046) 


25-JAN 


84 08:33 PAGE 


64 8 


C2TUUF. 


Pll 25-JAN 84 


06:09 




CROSS REFERENCE 


TABLE 


USER S 


NOXOFF 


006652 


5200* 












NTSFT 


013056 


6028 


6034* 










NX TRET 


006550 


5117 


5146 


5)51* 








NXTST 


006122 G 


5054* 


5086* 










NXTST2 


006372 


5119 


5123* 










OOTFLG- 


****** u 


6548 


7468 










ONEFIL- 


000001 


3309* 


3313 


3753 


3754 


3793 


3903 






6840 


7324 


7325 


7339 






OTL 


000010 G 


3965* 


5725 










OVRFLO 


013554 


6011 


6092* 










OVRN • 


000012 G 


3986* 


5728 










0$APTS« 


000000 


3772* 


3815 










OlAU * 


000001 


3772# 


3805# 


3815 








OSBGNP- 


000001 


3772# 


3805* 


3615 








OIBGNS- 


000001 


3772# 


3805* 


3615 








0*DU * 


000001 


3772# 


3805* 


3815 








OtERRT- 


000000 


3772# 


3815 










OtGNSU- 


000001 


3772# 


3805* 


3815 








OIPOIN- 


000001 


3772* 


3805* 


3615 








OISETU- 


000001 


3772* 


3805* 


3615 


7457 






PARTL ■ 


000034 G 


3995* 


5967 










PATTEN- 


000072 G 


4230* 


6079 


6353 


6619* 


6943* 


6944 






7080* 


7083* 


7064 


7111* 


7114* 




POTFLG 


016772 G 


6588* 


6615 


6670* 








PEROEV 


006404 


5125* 


5144 










PKPTR • 


000104 G 


4236# 


5214* 


5420 


5479 


5461* 


5695* 


PNT • 


001000 G 


3962# 












PPS0T9 


002224 


3690# 


7228 










PRBUF 


002214 


3666* 


6392 










PROAT 


015152 


6396* 


6397 


6410* 








PRFORH 


015154 


6397 


6411* 










PRI « 


002000 G 


3962# 












PR IOO • 


000000 G 


3962# 


6237 










PRI01 » 


000040 G 


3962# 












PR 102 ■ 


000100 G 


3962# 












PR 103 - 


000140 G 


3962# 












PR 104 • 


000200 G 


3962* 












PR 105 • 


000240 G 


3962# 












PR 106 ■ 


000300 G 


3962# 












PRI07 ■ 


000340 G 


3815 


3962* 


6236 


6240 


6681 




PRhFAK 


015004 G 


6366* 


6387* 










PRNSIZ 


003340 G 


4176* 


6365* 


6396* 








PTR 


017276 


6782* 


6763 


6766* 


6769* 






RCBCNT 


003320 


4168# 


5335* 


5346* 


5351* 


5355* 


5414* 


RCBFSZ* 


001036 G 


4040* 


5015 


7287 


7291 


7292 


7293 


RCOB ■ 


000024 G 


4216* 


5576 


5601 


6236 


6298 


6611* 


RCFLG 


003316 G 


4167# 


5336* 


5342 


5412* 


5426 


5696* 


RCINIT* 


000006 G 


3964* 


5737 










RCSR « 


000022 G 


4215* 


5463 


5574 


5590 


6260* 


6277* 


HCVBCF» 


000102 G 


4235* 


5014 


5214 


5332 


5669 


6564* 


RCVHK) 


014470 


6297* 












RCVINT 


014470 G 


6238 


6295* 










RONO * 


000114 G 


4240# 


5232* 


6496 








RDN1 • 


000116 G 


4241# 


5234* 


6506 








PEC 


000064 G 


4226* 


5210 


6078 


6621* 


6911* 


6913 






6977* 


6979 


6980 


6986* 


6987 


6990* 



SEQ 0156 



3904 



3917 



6416 



6419 



6432 



6626 



6829 



6976* 6979 



7018* 7021* 7022 



7049* 7052* 



6345 



6394 



5433* 
7294 



5437* 

7295 



5439* 

7296 



5470* 

7297 



5697* 
7298 



5704 



57?t 



6297* 6609* 6686 



6942* 
6991* 



6944 

7015* 



6945 
7018 



6951* 

7022 



6952 
7025* 



6955* 
'OSO* 



695t>* 
"'04^ • 
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TAa A 

7049 








71«?3* 


RtCDAT 


01 7 7 66 




J A* « 

6711 


KtCtHH" 




G 




HtLlU 


Ail I Jt "> 

01346«? 


b 


/ASA 

oOoo 




A« 1/ IX 

0136 36 




/Alt 

6O03 


Dcrnw 
HcCUV 


At *kA/ a 

01<?O64 




CfOA 

3O«?0 


DC TCDO 
Kt ItHH 


Ol<f£o6 




CA4 7 

304 f 


DCTDv - 


oooooa* 


b 


JAA7A 

*Zv*9? 


Dl I Aj 


013614 




0*03* 


DO TO 


013616 




£49^A 

04 fO* 


K3Ctj4j« 


AAAAA^ 

OOOOOa? 


b 


1AWA 








71 AS 




AAAA5A 


U 




OCOAC7 - 




G 








b 










r 113 






b 






OOOUO*: 


b 










'113 




AAAAfli 


b 


AAf 7. 




AAAAAJ 

ywuuf 


b 






AAAAI ^ 


b 


AAf 1 A 

*W3l9T 








71 SX 

7 133 


DCJkAtC 7 - 


AAAAI AL 


b 


AAAAA 

*UctW 








7A1A 


D CUT AD 


00cc30 




#0 f 79 




AAA « AA 

UUUIOU 


b 


4v*4# 


1 ■ 


AAAAl A 

OOOOlc 


b 


AAAAA 


DCCJJTTb 


AAAAAt 

WWU1 


b 


AACAA 

^vDUf 




AAAAAA 
WWW 


b 


AAAQA 


oc CMC 7 ■ 


AAAAl A 


b 


AA1AA 








71 17 


DC con ■ 


AAAAA-> 

UWWc 


b 


jAji a 

#U4o# 


Dccccir m 


AAAAAC 


b 


AAA 7 A 

4U4 ft 


Dccci r« 


AAAAA7 


b 


A AC 1 A 
403l# 


DC CUD a 


AAAAA* 

0UUU03 


b 


A AACA 

4Q439T 


DCWD 


AAAA. AA 


b 


C| A « a 

3l91# 








7^9 Da 






b 


A AAV A 

40«?3# 




fWVk3A 


b 


AAAAA 


n In in 


rtl 0031 






Dt M 


/VVAIA 

WOVrc 


b 






WUcvO 


b 


4<fO«C97 




IAS3330 


b 


A« 9CA 

#1 f 39? 




A4 Al/J 




CAAA A 

3ctOa 






b 


A DAL OA 


SCTLEN 


016646 




66344 

WJ*7* 


SETPTR 


005726 




4969* 


SETSRV 


010276 




5405* 


SETUP 


006024 


G 


50564 


STPTBL 


002210 


G 


56624 


SFT 


013124 




6044 


SFTOUT 


041620 




74564 


STTRO - 


000002 


G 


59624 


ST TUP - 


000004 


G 


59654 
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7A«t 

7055 


7 ACAV a 

7 036* 


7 AA 1 a 
^061 * 


7A7 7a 
fO r f * 


71 7C 

7 1 f j 


75A3 






A0 1 AL 
67 16 


A^D^I A 














AAQAA 








AAAAA 








30 fTf 








300797 








30cc* 


CApV 

30c3 


SA3A 


30*U W 


o*oo* 


ALA DC 


AC AAA 

03cV97 




6461 


6507 


6509* 


65214 


4026 


5220 


6895 


6913 


71 73 
' 1 f C 


71 AA 

» IOO 


71 QQ 


731 •> 
f c 13 


CCA 7 


3 rwl 


A3#«S 


A OA A 


AA1C 


A AAA 
*V*V 


3331 


e 7A3 
3 r *C 




3*33 


CA 7A 
3* 17 


C71 A 
3 r IO 


71 %M 








VAX 7 








5544 


5431 


5711 


5752 


71 








3 r J* 


Owcl 






9VJ7 


WOTJ 


07X3 


OT99 


71 7X 


71A1 
f 101 


7300 


73AA 
• CvO 


AftX«\ 


A AAA 
*V*w 


CAAAL 
33*0 


CAtl 
3*33 


71 IS 
» 113 


71 HQ 

f 107 


7P1 A 

* ClO 




AA1A 
OvlO 








7147 








6219 


7174 






7201 








S7SA 


AVAQC 
OO 73 


0713 


A OA A 


7914 








3cc> 


SOI 4 

37 1* 


ADAA 


ALDAC 


ALQ1 * 
0713 








3731 


AVAQC 
OOT3 






C3tA 
3c30 


3710 


ADAA 

W749 


A979 

V™ f 7 


AJIOSa 
OOTr3* 


ALQ1 «A 
Ot13 m 


ALDAA A 
OT9*» 


694SA 
07934 


5573 


7264 


7285 




SX73 








CACA 

3D 3* 


CAACA 

300397 






5065 


6692* 


6906* 


6956* 


5099 


5109* 






6656* 


6659* 


7050 


7061 


5495 


5531* 


55454 




AJIQOa 

od^at* 


ALDAA A 






4970 


4975 


4977* 


49604 


5409* 


55214 






6692* 


6906* 


6956* 


6971* 


60474 








5656 








5656 









Hll 

64 9 
USER SYMBOLS 

7080 7084 



5848 • 5651 

6944 6945 

6979 7022 
5749 

5740 6944 

6695 6944 

6945 6979 
6895 6915 



6945 6979 

6979 6960 

7022 7064 

6979* 6960* 

6971* 7011* 

7092 7125 

7011* 7042* 

7011* 7042* 



7087* 7092* 

5655* 5654 

6979 6980 
7084 

6945 6979 

6945 6979 

6980 7022 
6944 6945 

6960 7022 

7022 7055 

7022* 7055* 

7042* 7075* 

7075* 7104* 

7075* 7104* 



7106* 7111 

5669* 6620* 

7022 7055 

6980 7022 

6960 7022 

7053 7084 

6979 6960 

7053 7084 

7064 7115 

7064* 7115* 

7104* 7138* 

7137* 



SEQ 0137 

7115 7116* 

7064 7115 

7053 7084 

7053 7084 

7115 7146 

7022 7055 

7115 7155 

7162* 7192* 



PARAMETER COOING 


MAPY 1 1 




25 -JAN 


64 08:33 PAGE 


CZTUUT.P11 25-JAN-84 


VO • V w 




CROSS REFERENCE 


TADl C 
I HoLt - 


SKERR - 


000024 G 


&w y At w 


SQ41 








SLFER • 


000044 G 












SNO 


006670 


JCvl 




5206 






SNOBYT 


007122 G 


SPAA A 


52664 


5330* 


5419* 


D^O r * 


SNDCNT- 


000070 G 




5203* 


5207* 


6895* 


D^i.3* 






71 SS* 


71117* 


7214* 






SNOHNO 


014454 


£OAQ* 










SNOINT 


014454 G 


6P40 


626 7# 








SOFTR • 


000122 G 




6467 


6497 






SOFTU • 


000124 G 






6499 






SRVTBL 


010342 


55P5 


55364 








STAEOP 


002212 


3AA5# 


6719 








STATHO 


015620 


6477 


65236 








STATUS- 


000000 G 


42066 


7234 








STM02 


016074 


6479 


65320 








STRT 


016770 G 


6551* 


6555* 

\j ^ ^ ^ 


6597 


66694 




SUCCS » 


000076 G 


4232# 

~4» W 


5212* 


5810 


5626 


sort a. 


SUCOTL- 


000046 G 


4000# 


5975 








StfCGBL- 


000000 




3781+ 


3815 


3617 








6545 


6679 


6716 


6753 


6AAX 


SVCINS- 


000001 


3772# 


3778# 


3815 


3817 








5502 


5595 


5823 


5826 


SAX1 






6049 


6053 


6057 


6077 


OVyv 






6291 


6304 


6312 


6313 








64 AO 


6495 


6496 


6506 


AS1 Q 






6595 


6632 


6662 


6681 








6A26 


6693 


6900 


6907 


6QD7 
Q7C r 






7074 


709A 


7105 


7129 


7141 






7 MS 


7364 


7385 


7393 


7431 






74% 


7457 


7461 






SVCSUB- 


000001 


3772# 










SVCTAG- 


000001 


3772# 


3762+ 


3873 


3900 








6900 


6927 


6962 


7004 


7A«4L 
r WOO 


SVCTST- 


000001 


37724) 


3779# 


6891 


6905 




SUAPOR 


005532 G 


49304 




6906* 


6936* 


6Q71 a 


SUPTR 


005650 


4931* 


4932 


4941 


4943* 


4 OSS* 


SYSTAT 


003310 G 


41 SM 


si no* 


5105* 


5114* 


wCTO 


SILSYM- 




61PQ* 


61 32* 
o*j*c* 


6143 


6271* 


POO** 


010000 


Off CT 


I47Y* 


3900* 


60874 


6X11 *> 






692 7# 


6962# 


7004* 


70364 


rUD f w 


TAPLEN 


003312 G 


41654 

^ IvJf 


66^4* 


6635* 


6637 


rvlO 


TEST9 


003344 G 


41 7A4> 

^ A » Of 


SI 96 


5396 


5415 




TMRSMI 


012172 












THRSLO 


012144 


5631 


SM1# 








TMP 


000066 G 


~ ecu* 


6940* 


6956 


6957* 








70711* 


7085* 


7093* 


7109* 


71 1 &4 

r HO* 


TOMANY 


016706 


6574 


666SA 








VORCVB- 


000050 G 




5615 


6316 






T0SND6* 


000056 G 


4003# 


5276 


6228 






TRBUF 


027746 


5200 


5202 


5209 


6895 


6913 


TRK 




7144 


7171 


7198 


72874 




000062 G 


4225* 


7017* 


7027 


7029* 


7048* 


TRPHNO 


017106 


6681 


6701* 








TRPPTR 


017104 


6682* 


6683 


6688 


6690* 


66940 


TSTPC - 


000020 G 


4214* 


5039* 


5116 


5137 


5192* 


7STTOP 


003330 


4172* 


4948 


5039 


6692* 


6906* 



111 



64-10 

- USER SYMBOLS 



SEQ 0156 



5489* 
6944* 



5589* 
6945* 



5597* 
6979* 



5609* 
6980* 



7022* 7053* 7064* 71 15* 



6080 


6622* 














3843 


3660 


3662 


4334 


6070 


6287 


6295 


6467 


7378 


7421 


74574 












3860 


3882 


4334 


5060 


5147 


5148 


5150 


5271 


5833 


5847 


5854 


5862 


6011 


6025 


6031 


6036 


6083 


6087 


6222 


6237 


6238 


6240 


6276 


6260 


6363 


6397 


6402 


6404 


6475 


6477 


6478 


6479 


6553 


6554 


6556 


6574 


6575 


6581 


6582 


6594 


6693 


6701 


6704 


6721 


6742 


6743 


6761 


6781 


6937 


6962 


6972 


7004 


7012 


7036 


7043 


7067 


7231 


7238 


7240 


7242 


7251 


7378 


7381 


7362 


7422 


7423 


7424 


7425 


7426 


7427 


7428 


7429 


6291 


6304 


6519 


6662 


6693 


6743 


6761 


6826 


7067 


7098 


7129 


7251 


7393 


7436 


7461 


7466 


6970 


7010 


7041 


7072 


7103 


7134 






7011* 


7042* 


7073* 


7104* 










5341* 


5427* 


5637 


5696* 


5801 


5803 


5872* 


6077 


63044 


65194 


66624 


66934 


67434 


6781* 


68264 


6900- 


70984 


71294 


72514 


73934 


74364 








7031 


7047 


7062 


7078 


7093 


7109 


7124 




5463 


5647 


5718 


5758 


6552* 


7143* 


7169* 


7226 


6991 


6992* 


7016* 


7023* 


7031* 


7047* 


7054* 


7062 


7124* 
















6944 


6945 


6979 


6980 


7022 


7053 


7084 


7115 


7058 


7060* 


7079* 


7089 


7091* 


7110* 


7120 


7122. 


6936* 


6971* 


7011* 


7042* 


7073* 


7104* 


7136* 
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TST1 


Ol 7574 


6892 


6895+ 












TST2 




6906 


6910+ 












TST3 


0200 so 




6936 


69404 










TST3PT 


022766 
VCC r oo 


694 3 


6947 


6978 


6982 


6997+ 






TST4 


021442 


6971 


6975+ 












TST5 


023046 


7011 


7015+ 












TST5EX 


023762 


702a 


7033+ 












TST6 


024036 

VC~wJO 


7042 


7046+ 












TST6EX 


024 546 


7059 


7064+ 












TST7 


024622 


7073 


7077+ 












TST7EX 


025536 


7090 


7095+ 












TST8 


025612 


7104 


7108+ 
















7121 


7126+ 












TST9 


026354 


7136 


7143+ 












TUVECT- 


000204 G 


4261+ 


6236 


6239* 


6240 


6241* 


6276 


6279* 


TIARGC* 


000002 


3815+ 


5502+ 


5823+ 


5826+ 


5831+ 


5833+ 


5847+ 






6397# 


6402+ 


6404+ 


6477+ 


6479+ 


6495+ 


6496+ 






7242# 














T$CODE" 


007130 


7381+ 


7362+ 


7383+ 


7384+ 


7385+ 


7422+ 


7423+ 


TIERRN- 


000146 


3772+ 


5147+ 


6011+ 


6025+ 


6031+ 


6038+ 


6049+ 


TIEXCP- 


000000 


7381+ 


7362+ 


7422+ 


7427+ 








TIFLAG* 


000040 


6893# 


6907+ 


6937+ 


6972+ 


7012+ 


7043+ 


7074+ 


TIFREE" 


042252 


7457 


7467+ 












TIGMAN* 


oooooo 


3772+ 














T$MILI» 


000376 


7361# 


7382+ 


7422+ 


7427+ 








TILAST- 


000001 


3772# 


7457+ 


7460 










TSLOLI- 


000001 


7381+ 


7382+ 


7422+ 


7427+ 








TILSYM* 


010000 


3772+ 


3873 


3900 


6087 


6291 


6304 


6519 






6927 


6962 


7004 


7036 


7067 


7098 


7129 


TSLTNO" 


000011 


7457# 














TSNEST- 


177777 


3772+ 


3798+ 


5824+ 


3828+ 


3860+ 


3873+ 


3882+ 






6291# 


6295+ 


6304+ 


6416+ 


6460+ 


6467+ 


6519+ 






6743+ 


6753+ 


6761+ 


6803+ 


6826+ 


6688+ 


6891+ 






7004# 


7010+ 


7036+ 


7041+ 


7067+ 


7072+ 


7098+ 






7376+ 


7393+ 


7421+ 


7436+ 


7458+ 






T$NSO - 


oooooo 


379A# 


3902 

Art 


3955+ 


6416 


7302* 


6535 


6545+ 






6781 


6803+ 


6826 


WW w 




7367+ 


7458 


T$NS1 * 


000005 


3624+ 


3828 


3860+ 


3873 


3882+ 


3900 


6070+ 






6519 


6891+ 


6900 


6905+ 


6927 


6935+ 


6962 






7072+ 


7098 


71034 


7129 


7134+ 


7251 


7376+ 


TIPCNT- 


oooooo 


7460+ 


7461+ 












TSPTA8- 


010030 


746 1# 














TSPTMV 


000001 


3815 


7467+ 












TtPTNU* 


000001 


3772# 


7461+ 


7467 










TSSAVL" 


177777 


3772+ 














TI5EGL- 


177777 


3772+ 














TISIZE- 


000006 


7457 


7467# 












TiSUBN- 


oooooo 


3772# 


6891* 


69054 


6935+ 


6970+ 


7010+ 


7041+ 


TITAGL* 


177777 


3772+ 














T$TAGN« 


010032 


3772# 


38244 


38604 


3882+ 


6070+ 


6287+ 


6295+ 






6891# 


69054 


69354 


6970+ 


7010+ 


7041+ 


7072+ 


TiTEHP- 


oooooo 


3828+ 


38434 


38734 


3900+ 


3902+ 


6067+ 


6291+ 






6743# 


67814 


66264 


6693+ 


6900+ 


6907+ 


6927+ 






7043# 


70674 


70744 


7098+ 


7105+ 


7129+ 


7141+ 






7385+ 


73934 


74224 


7423+ 


7424+ 


7425+ 


7426+ 


TITEST- 


000011 


3772+ 


68914 


69054 


6935+ 


6970+ 


7010+ 


7041+ 



SEQ 0139 



6280 


6261* 


* gf A4E 

6*85* 








5854+ 


5862+ 


6077+ 


6080+ 


6063+ 


6363+ 


6506+ 


6701+ 


6761+ 


7231+ 


7238+ 


7240+ 


7424+ 


7425+ 


7426+ 


7427+ 


7426+ 


7429+ 


6053+ 


6362+ 


6574+ 


6594+ 






71054 


71414 










6662 


6693 


6743 


6761 


68*?6 


6900 


7251 


7393 


7436 








39004 


39024 


3955+ 


6070+ 


6087+ 


6267+ 


65354 


65454 


6662+ 


6679+ 


6693+ 


6716+ 


69004 


69054 


6927+ 


6935+ 


6962+ 


6970+ 


71034 


71294 


7134+ 


7251+ 


7302+ 


7367+ 


6662 


66794 


6693 


6716+ 


6743 


6753+ 


6087 


62674 


6291 


6295+ 


6304 


6467+ 


69704 


7004 


7010+ 


7036 


7041+ 


7067 


7393 


74214 


7436 








70724 


71034 


7134+ 








64674 


65454 


6679+ 


6716+ 


6753+ 


6803+ 


71034 


71344 


7378+ 


7421+ 


7460+ 


7461+ 


63044 


64164 


6519+ 


6535+ 


6662+ 


6693+ 


69374 


69624 


6972+ 


7004+ 


7012+ 


7036+ 


72514 


73024 


7361+ 


7382+ 


7383+ 


7384+ 


74274 


74264 


7429+ 


7436+ 


7458+ 




70724 


71034 


7134+ 


7457 
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TSTSTM- 


177777 


37724 


5060 


5147 


5148 


5150 


5271 


5502 


5595 


5823 


5626 


5631 


5833 


5847 




5854 


5662 


6011 


6025 


6031 


6036 


6049 


6053 


6057 


6077 


6060 


6063 


6087 






6222 


6237 


6236 


6240 


6278 


6260 


6312 


6313 


6362 


6363 


6397 


6402 


6404 






6475 


6477 


6478 


6479 


6480 


6495 


6496 


6506 


6519 


6553 


6556 


6574 


6575 






6581 


6594 


6595 


6632 


6662 


6681 


6692 


6693 


6701 


6704 


6721 


6742 


6743 






6761 


6781 


6826 


6893 


6900 


6907 


6927 


6937 


6962 


6972 


7004 


7012 


7036 






7043 


7067 


7074 


7098 


7105 


7129 


7141 


7231 


7238 


7240 


7242 


7251 




T $ TSTS* 


000001 


3772* 


66914 


69054 


69354 


69704 


70104 


70414 


70724 


71034 


71344 








T$$AU ■ 


010013 


6803« 


6826 
























T$$AUT- 


010010 


66794 


6693 
























T$$CLE- 


010011 


67164 


6743 
























T$$DAT» 


010031 


74614 


7466 
























T$$DU » 


010012 


67534 


6761 
























T$$HAR- 


010025 


73784 


7393 
























T$$MW - 


010001 


38604 


3673 
























TIIINI- 


010007 


65454 


6662 
























TIIMSG- 


010003 


60704 


6087 
























T$$PC - 


000001 


74604 


7467 
























T$$PRO» 


010000 


36244 


























T$$PTA« 


010030 


74604 


74614 
























TIIRPT- 


010006 


64674 


6519 
























TIISOF- 


010026 


74214 


7436 
























T$$SRV« 


010005 


62874 


6291 


62954 


6304 




















TIISW » 


010002 


38824 


3900 


















6972 


7004 


70104 


T$$TES- 


010024 


66914 


6893 


6900 


69054 


6907 


6927 


69314 


6937 


6962 


69704 


7012 
7251 


7036 


70414 


7043 


7067 


70724 


7074 


7098 


71034 


7105 


7129 


71344 


7141 


Tl 


017330 G 


3843 


68914 
























T1TRY ■ 


000146 G 


42654 


























T2 


017532 G 


3843 


69054 
























T3 


020004 G 


3843 


69354 
























T4 


021376 G 


3843 


69704 
























T4TRY - 


000132 G 


42594 


























T5 


023002 G 


3843 


70104 
























T6 


023772 G 


3843 


70414 
























T7 


024556 G 


3843 


70724 
























T8 


025546 G 


3843 


71034 
























T9 


026332 G 


3843 


71344 
























(JAM 


000200 G 


39624 


























UNIT 


013402 G 


6077 


60884 
























UNITNO 


027412 


5502 


7230* 


7236 


7240 


7242 


7246* 


72584 














UNREC 


012244 


5862 


58674 
























UNSUC 


011642 


5827 


56444 
























UNXPCT 


007654 


54304 


























WAIT 


014524 


6246* 


6254* 


6261* 


63084 


6315 


















wmcmdr 


013660 G 


5230* 


5244* 


6006* 


61064 




















URLOCK- 


000026 G 


39924 


5962 


6034 






















URTNO - 


000110 G 


42384 


5246* 


6496 


6601 


6603 


















URTN1 - 


000112 G 


42394 


5249* 


6506 






















XFNSND 


006660 


5197 


52024 
























xrce ■ 


000030 G 


42164 


5279* 


6231* 


6290* 


6618* 








6269* 


6613* 








XHSH - 


000026 G 


42174 


5268 


6216* 


6224 


6235* 


6245* 


6253* 


6276* 








XSCNT - 


000036 G 


42214 


6695* 


6913* 


6944* 


6979* 


7022* 


7064* 


7159* 


7189* 


7216* 


7022* 


7053 


7084 


XSFLG - 


000034 G 


42204 


5215 


5325 


5691 


6895* 


6913* 


6944* 


6945 


6979* 


6980 






7115 


7158* 


7168* 


7215* 












5690 


6895* 


6913* 


6944 


XSPKW- 


000032 G 


42194 


5211* 


5333 


5407 


5411* 


5424* 


5430* 


5446* 


5477* 
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£Q70* 

O^f r ^r* 




7fi33* 


7f»S^A 

f vw 


70A4 a 


71 IS* 


VCDTD ■ 




led f w 


Del * • 




1 J* 




S490* 

J"* TV* 






www 


5772P 














XIFALS- 


000040 


5772* 














XIOFFS* 


000400 


3772* 














XITRUE- 


000020 


3772* 














a 


042252 


3795* 


38174 


41054 


41074 


4109* 


41174 


41194 




4139# 


4141* 


41434 


41454 


4147* 


41494 


41514 






4312* 


43134 


51554 


55084 


5884* 


60914 


60934 






6666* 


66684 


67924 


6893 


6907 


6937 


6972 






7287* 


72914 


72924 


72934 


7294* 


72954 


72964 



7160* 



7190* 



7217* 



SEQ 



41214 41234 41254 

43064 43074 43064 

64124 64144 65254 

7012 7043 7074 

72974 72984 7461 



41294 41334 41550 

43094 43104 43110 

65274 65314 65340 

7105 7141 72570 
7467 



Mil 



PARAMETER 


COOING 






xnr i ndA 


CZTUUF.P11 25 


- IAN -Ad 


AQ . AO 




BCOhPL 


105* 


o f rcf 






BERROR 


113+ 


X770A 
O I few 






BGNAU 


121+ 


X770A 
Or few 


DOVO 




BGNAUT 


135+ 


1770* 
3f few 


OO r *f 




BGNCLN 


149+ 


of few 


A71 A 
O f lO 




BGNOU 


162+ 


X770Mi 
dr few 


A7SX 




BGNHRO 


175+ 


X770A 
O f few 


7X7 A 

f O t O 




BGNHU 


190+ 


X770M 
of few 


OODv 




BGNINI 


206+ 


X770A 
Off eW 






BGNHOO 


216+ 


X770* 
o f few 


O i70 




BGNMSG 


235+ 


X770M 
Oft ew 


An7n 




BGNPRO 


248+ 


X770A 
Off ew 


XAPd 




BGNPTA 


262+ 


X77Pd 
oft ew 


f lui 




BGNRPT 


297+ 


X770S 
3 f f ew 


o**o f 




BGNSEG 


311+ 


X772A 
off ew 






BGNSET 


325+ 


X772A 
Off ew 


7dAO 
f HDv 




BGNSFT 


352+ 


X772A 
off ew 


7dPl 




BGNSRV 


367+ 


X770A 
Off ew 


APA7 
OcO f 


APQS 

Dt7J 


BGNSUB 


360+ 


off ew 






BGNSU 


406+ 


X77PB 
ott ew 


XfKAp 

JOOt 




BGNTST 


423+ 


X770A 
off ew 


AAQ1 


AQOS 

w7VJ 


BNCOMP 


457+ 


X770A 

off ew 


ASSd 


ASAP 


BNERRO 


465+ 


X772& 
off ew 






BREAK 


473+ 


X77PS 

off ew 




514A 


BRESET 


481+ 


X770A 

off ew 


ASSA 


A74P 


CKLOOP 


491+ 


X770A 
Off ew 






CLOCK 


503+ 


X770A 

off ew 






CLOSE 


514+ 


X770S 
Off ew 






CLRVEC 


528+ 


X770A 
Off ew 


Dc fO 


APAA 


COMMEN 


537+ 


X770A 
Off ew 






DELAY 


566+ 


X770A 
O f few 






OESCRI 


556+ 


X770M> 
Off ew 


XA1 7 




OEVTYP 


592+ 


X770A 
Off ew 






OISPAT 


601+ 


X770A 
Off ew 


XAAX 
OO^O 




OISPLA 


619+ 


X770M 
O f few 






OOCLN 


639+ 


X770A 
O f few 




AS7S 
Dj t O 


DOOU 


647+ 


X770A 
Off ew 


vwJ f 


A 7 Ad 


OORPT 


655+ 


X770A 

off ew 


A7P1 

Orel 




ENOAU 


663+ 


X770A 

off ew 


AAPA 




ENOAUT 


679+ 


X770A 

off ew 


AAQX 




ENOCLN 


696+ 


X770A 

off ew 


A7dX 
O f HO 




ENOCOM 


712+ 


X770A 

off ew 






ENDOU 


734+ 


X770A 

off ew 


A7A1 




ENDMRO 


753+ 


X77PA 
off ew 


f O^fO 




ENOHU 


769+ 


V77PA 
off ew 


XA7X 

OO f o 




ENOINI 


783+ 


X770A 

off ew 


£££0 




ENDMOO 


800+ 


X77PA 
off ew 




Adl A 
OHIO 


ENOMSG 


817+ 


X770A 
off ew 


AAA 7 

DVw f 




ENOPRO 


834+ 


X77PA 
off ew 


?APA 




ENOPTA 


848+ 


X77Pd 
off ew 


7dAA 




ENDRPT 


861+ 


3772+ 


6519 




ENOSEG 


880+ 


3772* 






ENOSET 


899+ 


3772* 


7467 




ENDSFT 


919+ 


3772* 


7436 




ENOSRV 


936+ 


3772* 


6291 


6304 


ENOSUB 


956+ 


3772* 







CROSS REFERENCE TABLE 



MACRO NAMES 



SEQ 0142 



6460 6888 7367 



6935 6970 7010 7041 7072 7103 



5271 5595 6222 6312 6313 6475 



7134 

6478 6480 



6692 



6595 



6535 7302 7458 
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978* 

* f O w 


3772* 

<J » ' C w 


3900 






3772* 


&QOO 

w 7W 


EQUALS 


lOl 5* 


3772* 


3962 


FRRDF 


1093* 

XV * *Jw 


3772* 


601 1 

Ov X X 


ERRHRD 


1105* 


3772* 


6038 

www 


ERROR 


1115* 


3772* 




ERRSF 


1 124* 


3772* 


5147 


ERRS OF 




3772* 

W » f C W 


6031 


ERRTBL 


X X™ wW 


3772* 




ESCAPE 


X lO X w 


3772* 




EXIT 

W^X 1 


1191* 


3772* 


6893 


F EQUAL 




3772* 






1251* 


3772* 

W f » C W 




GETPRI 




3772* 




GETUOR 


1261* 

XCw X W 


3772* 




GMANIA 


1291* 

XC 7 X W 


3772* 




GMANID 


1304* 


3772* 




GHANIL 


1320* 

X**CWW 


3772* 




GPHARO 


1333* 


3772* 


6581 


GPRMA 


134S* 

■ ^W 


3772* 


7381 


GPRMD 


1377* 


3772* 


7422 


GPRML 


1412* 

A~ XC w 


3772* 


7383 


HEADER 


1437* 

X" « W 


3772* 


3815 




1451* 

X~ Jl W 


3772* 




IOSETU 


1458* 

X^ JWW 


3772* 




IOSTAR 


1471* 

X^ ■ XW 


3772* 




KT11 


1493* 


3772* 




LAST AO 


1664* 


3772* 

• • C W 


7457 


MANUAL 


1662* 

xwwc w 


3772* 




MEMORY 


1690* 


3772* 




MIBYTE 


2912* 

C71C w 


3772* 


3815* 

x jw 


MICHEC 


3218* 

«*C WW 


3772* 

«J c » C W 


6893* 


MICNTO 


3291* 


3772* 


7381* 


MICOUN 


3136* 


3772* 


5502* 




6402* 

WC W 


6404* 


6477* 


Ml DATA 


2625* 

CwC JW 


3772* 


3815* 

**wX JW 


MIDECR 


3075* 


3772* 


3828* 




6781* 

W « W XW 


6826* 


6900* 

w 7WW 




7461* 






MIDEFA 


3275* 


3772* 

f f C w 


7381* 

f JU X w 


MIENDE 


3157* 


3772* 

■*j t * cw 


3873* 




6826* 


6900* 

v tww 


6927* 

W'C * W 


MIERRI 


2372* 


3772* 

v v CW 


5147* 

^ X~ » w 


Ml ESC A 


2932* 


3772* 




MIESCS 


2943* 


3772# 




MIEXCP 


3198* 


3772* 


7381* 


MIEXIT 


2954* 


3772* 


6893* 


MIEXSE 


2976* 


3772* 


6893* 


MIEXTJ 


2965* 


3772* 


6893* 


MIGEN 


3099* 


3772* 


3815* 




6295* 


6304* 


6467* 




6900* 


6905* 


6927* 




7154# 


7251* 


7378* 


MIGENB 


2775* 


3772* 




MIGETS 


3091* 


3772* 


3828* 




6781* 


6826* 


6900* 
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6927 


6962 


7004 


7036 


6025 








6053 








6574 


6594 






6049 


6362 






6907 


6937 


6972 


7012 


7382 








7427 








7384 


7385 


7423 


7424 


6907* 


6937* 


6972* 


7012* 


7382* 


7363* 


7384* 


7385* 


5823* 


5828* 


5831* 


5833* 


6479* 


6495* 


6496* 


6506* 


3817* 


4334* 






3873* 


3900* 


3902* 


6087* 


6927* 


6962* 


7004* 


7036* 


7382* 


7363* 


7384* 


7385* 


3900* 


3902* 


6087* 


6291* 


6962* 


7004* 


7036* 


7067* 


6011* 


6025* 


6031* 


6038* 


7382* 


7422* 


7427* 




6907* 


6937* 


6972* 


7012* 


6907* 


6937* 


6972* 


7012* 


6907* 


6937* 


6972* 


7012* 


3817* 


3624* 


3843* 


3860* 


6519* 


6545* 


6662* 


6679* 


6935* 


6962* 


6970* 


7004* 


7393* 


7421* 


7436* 


7457* 


3873* 


3900* 


3902* 


6067* 


6927* 


6962* 


7004* 


7036* 



Nil 

5-1 

MACRO NAMES 



SEQ 0143 



7067 7098 7129 7251 



7043 7074 7105 7141 



7425 7426 7428 7429 



7043* 


7074* 


7105* 


7141* 










7422* 


7423* 


7424* 


7425* 


7426* 


7427* 


7428* 


7429* 


5847* 


5854* 


5662* 


6077* 


6080* 


6063* 


6363* 


6397* 


6701* 


6761* 


7231* 


7238* 


7240* 


7242* 






6291* 


6304* 


6416* 


6519* 


6535* 


6662* 


6693* 


6743* 


7067* 


7098* 


7129* 


7251* 


7302* 


7393* 


7436* 


7458* 


7422* 


7423* 


7424* 


7425* 


7426* 


7427* 


7428* 


7429* 


6304* 


6416* 


6519* 


6535* 


6662* 


6693* 


6743* 


6781* 


7098* 


7129* 


7251* 


7302* 


7393* 


7436* 


7458* 




6049* 


6053* 


6362* 


6574* 


6594* 









7043* 


7074* 


7105* 


7141* 










7043* 


7074* 


7105* 


7141* 










7043* 


7074* 


7105* 


7141* 










3873* 


3882* 


3900* 


4334* 


6070* 


6067* 


6287* 


6291* 


6693* 


6716* 


67434 


6753* 


6781* 


6603* 


6626* 


6891* 


7010* 


7036* 


7041* 


7067* 


7072* 


7098* 


7103* 


7129* 


7461* 


7466* 














6291* 


6304* 


6416* 


6519* 


6535* 


6662* 


6693* 


6743* 


7067* 


7098* 


7129* 


7251* 


7302* 


7393* 


7436* 


7458* 



B12 

PARAMETER COOING MACU1 30(1046) 25 JAN 84 06: S3 PAGE 65-2 

CZTLHJF.P11 25 JAN 64 06:09 CROSS REFERENCE TABLE -- MACRO NAMES 



m a it r t 

nlGtTT 


-V* Xff * 


177^* 

37724 


/ in! a 


CAA7A 


CQX7A 
OTf3 rf 


O^f cf 


7A1 3A 
f Olcf 


7AA XA 
f Wf 3f 


7A74A 
f U f f f 




27004 


37 Jew 




XA1 KM 

3*31 3f 


XA1 7 A 

301 f f 


1A3A A 
30cf f 


XAaXA 

30f 3f 


XAAAA 
300Vf 


XAAjA 
JOOcf 




Wbff 


X AXC* 


XX 7QJ 

DO f ff 


4v7l «\A 
Of IOf 


4*7(X4% 
O f 33f 




CAJft A* 
OOOOf 


7XA747 

f JO f f 


7 X 7114 

f O f Of 




It 1 ** 


3 r rcf 


XA1 (A 

301 Jf 


«A t 7 A 

301 f f 


«A* XA 

OO 4 ! OW 


OOO Vf 


JOOcf 


f 0 jf f 


(A1AA 
JVOVf 




(A31A 




JOJlf 


CR11A 


30*f f f 


(A(A* 
PO Jf f 


(AC 3 A 
JOOcf 


1A11A 

Will 


1A3(A 
OVC Jf 




1A1A6 


Ovo3f 


AAA 7 A 
OVO rf 


CO 33 A 
Occcf 


Oc3 f f 


Oc30f 


Ocf Vf 


Oc f Of 


13AA* 
OcOVf 




63f rf 




AAA** 
Of Off 


O - * ' Jf 
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